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CHERS AMIS 








IL ARRIVE !!! 
















Nous avons pris un engagement ferme pour le Spécial-Sicob 
85, qui se déroulera du 6 au 11 mai 1985. 


Nous cherchons d'ores et déjé des bonnes volontés: il faut 
des bras pour eménager le stand, des idées pour le meubler, 
des tétes pour le tenir, des âmes généreuses pour nous 
préter du matériel... Faites vous connaître le plus vite 
possible ! 


Nous aurons le plaisir de compter parmi nous Etienne 
Foupée, son matériel, et surtout son eprom "navigation" 
(Etienne parraine deux bateaux). Jean-Jacques Dhénin sera 
là pour nous présenter le module "Faname". Enfin, un 
représentant de Jacques Vaucelle pourra nous montrer la 
liaison HF4i-MicroOrdinateur Sanyo. 

À l'heure où j'écris ces lignes, FFC-Toulouse ne nous à pas 
encore donné une réponse définitive. Les Clubs étrangers 
non plus. 












ë I1 ne faut pas non plus oublier les contraintes bassement 

matérielles: un module de 9 m£ coûte 4000 FF HT, soit 14232 
francs pour 3 modules, et ceci sans compter l'éléctrici 
l'assurance, les meubles et éventuellement le téléphone 
pour présenter notre Carte Minitel. 
Nous en appelons donc, comme l'an dernier, à votre bonté. 
Ceux qui veulent participer aux frais peuvent nous envoyer 
un petit chèque de S0, 100FF ou plus. Bien entendu, ce 
petit effort n'est pas imposé. Mais sachez que ce don nous 
sera très utile. 
















À bientét pour une grande féte ... 


SICOBEMENT VOTRE 
Fhilippe 
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PPC FARIS SE REUNIT UNE FOIS PAR MOIS 






Comme vous le savez peut étre dé 
fois par mois, en plein coeur 
matériel, votre bonne volonté et 
apporterez, et plus vous en trouve 


unit une 
BMmENnez votre 
Flus vous er 
collégues de 


se r 





ui 











FFE, LC réunions déroulent de manière trés libre. aucun 
ordre du jour, discussion où autre n'étant imposé, Un 
membre du Hureau est toujours présent. éinei, si VOUS 





remettre tre article tout frais au journal, si 
des suggestions à faire, si voue LI 
procurer des anciens numéros de JFC, ce sera en principe 
toujours possible. 





VOLE 





Si donc cela vous intéresse, n'hésitez plus un seul instant 
Venez nous rejoindre tous les premiers samedi de cheque 
mois, au CENTRE DE JEUNESSE ET DE LOISIRS JEAN VERDIER 

, rue de Lancry 

S010 FÉRIS 
















montant au deux ge, vous entendrer de 
de rire et des di ssionnées vers la salle 
Attention, toutefoi r entre is et 1% h. 


Four 1°a 
à savoir: 
Métro Strasbourg St Denis: 





possibilités es‘cffrent à vous 





rtie Forte St Martin : Hld St 
Denis, coté pairs. 

Hétro Républiqu rtie Hid St Martin, cot t 

Métro Jd. Bonsergent: Sortie Hld Magenta, coté impaire. 











Ah, j'oubliais: JFC est distribué en avant-première 
de ces réunions ... À bon entendeur Salut ! 





nions sont: {16h-19h) 





Les dates des prochaines Fr 
— Le Samedi s 1985 

— Le Samedi 20 évril 19785 (hors vacances scolaires) 
— Le Samedi ler Juin 1985 








À KHientét.., 
Fierre DAVID 
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Appt. 1085 
15, chemin des Fi 


69120 VAULX EN V 





Vaulx, le 19 Fevrier 1985 


REUNION PP EC pe) LYON 





Suite à Ja réunion FFC organisée en Bretagne les 8 10 
février dernier, considérant l'important euccés qu'elle a remporté 
comme à l'accoutumée d'ailleurs, voici pour nos amis du Sud-Est et 
pour la première fois dans leur région l'équivalente de Îla grande 
classique Eretonne. 

Cette réunion se déroulera à Lyon mème et sur deux jours, 
plus exactement les samedi & dimanche 27 £& 28 avril 1985, à ‘adresse 
suivante : 





Centre International de Séjour de Lyon { CGISL 
46, rue du Commandant Fegoud 
008 LYON 





Cette rencontre permettr 
membres FEC qui n'ont pa 


a de réunir pour la première fois des 
encore eu l'occasion de se connaitre. Comme 
iors des réunions Bretonnes, un certain nombre de spécialistes des 
clubs FFC seront présents (certains se sont déjà annoncés, notamment 
des Bretons et des Farisiens ls et ils pourront renseigner Îles 
personnes présentes sur les sujets les préoccupant. 
IT est bien évident que toutes les nouveautés HPF-41, HF-7i, 
HP-IL, etc seront présentées 
ZENRONM, FANAME. CCDRON ( FORTH sous 
la nouvelle unité de disquette IL, 
leurs 














Comme par exemple les modules 
rve ) de la 41, Ia THINKIET, 
et j'en passe parmi Îles meii- 
Certains produits seront d'ailleurs proposé à Îla vente aux 
personnes présentes. 

Des exposés et démonstrations seront proposés aux partici- 
pants,. £i vous préparez quelquechose, vous m'en indiquerez au préa-— 
abie le sujet. 

Comme d'habitude, une participation financière aux frais sera 



























demandée aux part ip frais d'hébergement ainsi que frais de 
restauration. Cette participation n'excèdera pas 150.00 . 

Comme indiqué ilicitement i-dessus, le gite et le couvert 
seront assurés pour tous. Comme pour toute réunion FFC, il faut pré- 


venir si vous souhaitez ètre présent, Vous he pouvez p 
la difficulté qu'il y à à organise ne rencontre s 
avant, vous en ignorez encore Îe nombre des participan 





s vous imaginer 

peu de tempe 
s, sans parler 
d'acheter alors des vivres en quantités judicieuses ainsi que de 
retenir Te bon nombre de chambres ! De grace, prévenez ! Mon adresse 
et mon numéro de téléphone sont en tète de te page. 

11 sera bien sùbr possible d'aller her des gens aux gares 
de Lyon, convenons ensemble des heures d'a ivée au téléphone. Four 
ceux qui ne connaissent pas la ville et qui arriveront par exemple en 
voiture, il sera toujours poseitie de fixer un point de ralliement. Je 
pourrai envoyer à ceux qui le souhaiteront un plan d'accès. 

IT ne me reste plus qu'à souhaiter que cette réunion se passe 
dans Îles mèmes conditions que les réunions Bretonnes, dans la mème 
ambiance enthousiaste et sympathique, et bien sdr, avec un nombre au 
moins équivalent de participants. Ce n'est pas tous Îles jours qu'il y 
a une réunion FFC à proximité. peuchère, remuez-vous ! 













Donc, au 27 & 28 avril prochains, 
à tous re 
Heureuse Frogrammation 


ù Ke (abastard 
GR usé 
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NOUS EN AVONS 





Sont er vente au Club: 


- Cartes magnétiques pour HP41 au prix de 1S0FF + 3,10FF de port les 50 cartes; 

artes sagnétiques pour HP71E au prix de 71FF + 3,10FF de port les 10 cartes; 

- Eprons (2718 & 2732) vierges au prix de 60FF + 3,10FF de port pièce. Four les Eprons 
progransées, nous consulter; 
Module T1 au prix de 400FF + 6,50FF de port. Livré avec sanuel en français; 
Module 708) au prix de A00FF + B,S0FF de port; 

Module HFIL au prix de 970FF + 6,S0FF de port. Livré avec manuel en français; 
Four les cossandes des ZENROM, CCDRON et ROM PANSME nous envoyer S00FF siniaue d’arrhes 
{listing des 3 prerières pages de la 41) au prix de 170FF + 13,S0FF de port; 

de service de la 41 au prix de SÛFF + de port; 

el technique du convertisseur au prix de 20FF + 3,20FF de port; 

nuséros au prix de: 

u prix de 19FF + 3,20FF de port par nuséro, 

No 4 à 10 au prix de 20FF + 3,20FF de port par nunéro, 

No 11 à 17 au pris de 26FF + 6,50FF de port par numéro, 


ës 
à partir du No 18 au prix de 3SSFF + 6,50FF de port par numéro. 
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Les ports tarifs PTT actuels en nor urgent, 


ACHATS GROUPE: 











Nous assurons des compandes groupées pour ceux qui désirent profiter de notre réduction 
“spécial Club*, soit 252 par rapport au prix HF. Pour ceux qui le désirent, nous assurons 
J'envoi postal en urgent ou en non urgent. Ces achats concernent aussi bien des sodules que des 
calculatrices et autres, 












À ces deux rubriques ‘nous en avons” et "achats groupés”, sont des services “Club” que nous 
rendons excl esent aux menbres effectiveaent inscrits au club et possédant leur carte de 
mesbre PPC-PAR 












INTERFACE VIDED GRAPHIQUE HP-IL 












Un grossiste envisage d’iaporter une nouvelle interface vidéo HPIL. Son originalité: elle est 
graphique. Son origine: RFA. Son prix: aux alentours de 5700 FF (TIC). 

Sa résolution est environ de 600 par 300 pixels. Elle se programme en HPGL, qui est un "petit" 
langage spécialisé pour les graphiques (exemple: MD 0,0 , pour tracer un trait jusqu’en 0,0). 
H s’agit là d’un sous-ensenble du HPGL, sais qui est largesent suffisant. 

11 ne faut cependant pas oublier la partie "texte". Cette interface perset d'afficher 25 lignes 
de 80 caractères. Cette partie texte se superpose au graphique. 

Si nous groupons les commandes, il sera possible d'obtenir une réduction. Alors, plus vous 
serez nombreux, plus petit sera le prix... 
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COURRIER DU COEUR: 








M. SEGALINI J. P., 19-23 rue du Docteur Finlayÿ 75015 PARIS vends calculatrice programsable 
HP34C 290FF Tel: Dos (1) 577 02 49 ou Bur il) 51 47 85. 


Alain DULPHY (PPCII9), 16 rue Pasteur, 92300 LEVALLOIS-PERRET, vends une HP7SC (244) à SOOÛFF 
une iaprisante 6P100 IL-A à 2500FF. Tel= Dos (1) 737 41 13 et Bur (1) 778 16 60, 





Michel MARTINET (PFC-P#12), 17 rue eugène Hénaff - 93200 ST DENIS - Tel:8220149 - Vend HP7SC + 
Ko + VISICALC + formateur de texte + très nonbreux logiciels: 8000 Frs. 


Daniel JACOB: 4,rue des blanchisseurs 92570 CHAVILLE Vends: sante thers. HP 821438 tb état 
de sarche + 3 rouleaux de papier noir ; MLDL Hollandais (Ste ERAMCO) BK RAM et 24K RON + 
Eproes ERANCO-MLDL + VASM:2500FF;laprisante thera. HP 821434 en mauvais état (ne fonctionne 
pas, sais présence de toutes les fonctions ë BLDSPEC fonctionne correctesent) 
iproblèaæe: pont de diodes grillé...) Pour bricoleurs, 








et de PPC*PPC 


Ce journal doit être un résuré d'un aaxiaus de prograsees parus dans les journaux PPC européens. 
Î rnaux qui nous ont donnés l'autorisation d'utiliser leurs articles sont les suivants: 





Vous avez sans doute resarqué que la diversité des langues esployées est une caractéristique 
majeure de cette liste, Hélas, ses études ne s’ont perais que l'apprentissage de la langue de 
Shakespeare, C’est la raison pour laquelle je ae persets de faire appel à vos connaissances 
pour a’aider. J'aurais donc un grand besoin de gersanophones, de néerlandophones 


D'avance, je vous resercie pour votre aide qui #e sera très précieuse. 


Laurent ISTRIA 


IPC 





n'22 page 5 





CONCOURS PROGRAMMES 


Eh oui! Cosse nous l'avions annoncé dans le JPC No 21, notre Concours est lancé. Lors de la 
réunion du Bureau, les rêgles suivantes ont été établies: 


ARTICLE 1 : - Sont acceptés pour ce concours tous les articles et prograses portant sur le 
satériel portable HP; séries 70, 40, 10, périphériques... 

ARTICLE 2 : - Toutes les soueissions paraîtront dans le journal. 

ARTICLE 3 : - Tous les articles ou prograsses devront être inédits et pourront porter soit sur 
un sujet totalement nouveau, soit sur l’asélioration d’un article déjà paru (en 
citant les sources}, soit sur un ensesble d'articles d'initiation... 

ARTICLE 4: - Les prograsses et articles pourront provenir de tous les utilisateurs du satériel 
cité à l’article 1, qu'ils soient ou non aesbres PPC. 

ARTICLE 5 : - Pour conserver le caractère iapartial, les mesbres du Bureau ne pourront 
sousettre d’épreuve pour ce concours. 

ARTICLE & : - La durée de ce concours a été fixée à un an, du vendredi ler février 1985 au 
vendredi 31 janvier 1986. 

ARTICLE 7 : - Le Bureau, à travers le Président, choisit un jury parai les personnes qui se 
seront portées volontaires. Ces personnes ne peuvent pas concourir. 


Nous attendons donc vos iapressions, sais aussi et surtout vos articles. 


travail à tous, 


Philippe. 


COURRIER DES LECTEURS 


François COLET 
34, Rue de la Jorayère 
42100 St Etienne 
Le 18 janvier 1985 
Monsieur, 


de trouve votre journal très bien et vous en félicite en espérant que celà durera encore 
longteaps. 


Come je vous l’ai déjà dit, je suis débutant dans la technique de programmation du calculateur 
HP41CV: 
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N'ayant que peu de tenps pour écrire les programmes, j’aieerais pouvoir bénéficier de l’acquis 
des adhérents du Club et notamment pourriez vous s’il vous plait «indiquer ce que vous avez en 
ce qui concerne les matrices, la physique, les eéthodes de calcul d'intégrales, J'ai appris par 
la radio, aujourd'hui qu'Henlett-Packard s'intéresse à Ja voile. Je s’y intéresse beaucoup 
égalesent et je voudrais savoir ce que HP fait et propose dans ce dosaine. 

Jd'envisage de plus en plus sérieusenent l'achat du lecteur de cartes sagnétiques, pourriez-vous 
m'indiquer le prix et les délais de livraison ? Si vous pouviez se renseigner rapidement, cela 
me sortirait d'une situation critique: je vais bientèt ne plus avoir de place pour écrire mes 
prograi je n'ose en éliginer cer d'ici un aois, je vais de nouveau en avoir besoin. 
D'autre part, à quoi servent les nodules ZENROX, CEDROM et ROMPANAM, à quoi servent les 
fonctions synthétiques, On'existe-t-il pas d'ouvrage en français, aon anglais étant 
approximatif, ou en allemand relatif à leur utilisation. J’ai entendu dire qu'on pourrait créer 
des syaboles et des notes de susique supplémentaires, 

Existe-t-il des possibilités d'esprunt de satériel ? 





En attendant votre réponse, veuillez agréer, monsieur, l'expression de «es sentisents 
respectueux. 
François COLET, 


Pascal LE ROY (PPCPC 69), 

51, Rue du coserce 

75015 PARIS - Tel: (1) 532 87 79 
Paris, le 2 février 1985 





ai beaucoup entendu parler du langage "synthétique" sais j'ignore 5es 
ous se les indiquer ainsi que ae conseiller pour l'achat d'un aanuel 






Merci bea: 





Pascal LE RD 





Chers aris, 


de répondrai à ces deux lettres d'un seul trait de plume. 


Le gros aorceau de l’acquis des Adhérents du Club se trouve dans notre journal de liaison 
(FD). Il est difficile de vous envoyer un listing des articles parus, celui-ci n'ayant pas été 
fait, Mais il paraît régulièresent dans les nuséros double de décesbre-janvier {soit le No 10 
pour l’année 84 et le No 20 pour l'année 85). 


En ce qui concerne l'achat de matériel, nous pouvons avoir jusqu'à 25% de réduction chez 
certain de nos “fournisseurs Club”, La réduction est faite sur le prix pratiqué par HP et 
dépend de l'augeentation possible des produits entre le ausent où vous nous envoyez votre 
lettre et celui où nous payons votre cossande, Le Club ne fait aucun bénéfice sur ce service. 


JPC 
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Nous vous demandons donc de ne pas oublier de cospter en supplésent le port (urgent ou non 
urgent, mais nous vous conseillons le reconsandé avec accusé de reception}. D'autre part, la 
facture établie est celle du fournisseur, 







- Les sodules CCD et ZENROM vous persettent une seilleure utilisation de votre HP41. La ZENROM 
contient, en tout et pour tout, un éditeur de RAM (pour prograesation synthétique ou non) et un 
éditeur de asicrocodes (vous persettant de décoder directement les listing sicrocodes ou de 
programmer un laboratoire de langage sachine). La CCDROM, vous perset de prograsaer tout ce que 
vous désirez au Sein de la sachine en prograssation synthétique ou non {un peu cosme les ordres 
basic PEER & POKE’, sais pour la prograsation synthétique). La ROM PANAME à un objectif 
totalement différent. Elle contient surtout des utilitaires pour HP4i seule ou aunie d’un 
périphérique (traitesent de fichiers, traitement de tableau, calculs satriciels, utilisation 
d'une vidéo, d'une jeprisante, d’une table traçante. Pour les ouvrages français, vous avez le 
JPC, la revue de PPC TOULOUSE ’MICRO-REVUE’, des livres édités par les éditions du cagire 
(desandez à JEAN-DANIEL DODIN, 33 rue du Cagire, TOULOUSE), le plus connu étant "Au fond de la 
41". En allesand, vous avez la revue PRISMA éditée par le club CCD (desandez à K EN, Dr M. 
BALTES und W. KOTI, Ie Aehlesaar 20, Postfach 800 133, 5060 Bergisch Gladbasch 2, ALLEMAGNE). 
de ne sais pas ce que vous appelez des syaboles, sais vous pouvez créer toutes sortes de 
caractères, des tones synthétiques (TONE M, TONE P, TONE 25...) 



















Aeitiés à tous et Heureuse programmation. 






Philippe. 
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LE PROJET POPCORN 


La meilleure fason de parler des choses n'est-elle pas de cosmencer par le conmencesent 7? Et 
bien soit. Voici contée pour vous l'histoire de la genése de ce projet. 


Tout a débuté au sois de septesbre dernier. (livier Arbey et aoi aèse avions été dépéchés, 
par Je Club, pour participer au tournoi d’Othello de l’DI. Le prograsse sous lequel tournaient 
nos HF7IB avait été conçu par Fréderic Poupon, et nous persit de reaporter 2 victoires sur à 
parties ainsi qu'une honorable quinzièse place. Mais nous avions vu. 


Qui, nous avions vu que certains prograni 
extrèseaent perforsants. De là, naquit en nous | 
meilleur progranse, de fabriquer Le progranae gagnant. 





tournant sur de petites sachines étaient 
ée de toutes les dépasser; de faire le 





À la fin du tournoi, nous nous retrouvases donc, Olivier et soi, dans son husble deseure. 
L'idée de base était dans notre tête, encore fallait-il la coucher sur du papier, afin de la 
rendre exploitable. À l’époque venait à peine de sortir la ROM Forth/Assesbleur et, ne nous 
doutant pas le aoins du sonde des quelques difficultés qui allaient apparaître lors de la 
tentative d'apprentissage de ces langages, nous décidôses joyeusenent que le programme sus-noesé 
serait écrit en Basic, en Asseableur et en Forth (BAF, d’où le nos du projet). 


& l'évidence, nous pensèses que nos deux personnes ne seraient pas suffisantes à 1’achèvesent 
du problèse. Les tentatives de prograsmation en Assesbleur révèlerent que notre conception de la 
difficulté était bien au dessous de la vérité. Le fait était que nous avions besoin de 
“suppléants”; il nous sont devenus indispensables. C'est la raison pour laquelle nous faisons 
appel à vous. Nous désirerions entrer en contact avec: 


- Des Logiciens 
- Des Evaluateurs 


- Les Prograsneurs. 


Les personnes qui seraient intéressées par ce genre de travail voudront bien se faire 
connaître auprès de Philippe Guez. 


D'avance, je resercie tous ceux qui, je l'espère, nous aideront. 


Laurent ISTRIA (#3) 


JPC 
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°le HP7IB face à ses concurrents directs’. 





Vous vous souvenez sans doute encore du JPC nri3 et de son épais dossier su le HP7IB. Vous avez très 
certainenent reearqué que ce dossier évoque briévesent le fait que le petit dernier de HF, n'est pas un 
sprinter de l’inforeatique, 


Depuis, vous vous demandez avec angoisse ce que celà peut bien vouloir dire. Vous souvenant avec 
inquiétude du petit trot pépère de notre chère HP4], Si vous en possédez une, elle a peut être sése subi 
une opération chirurgicale pour pallier l'inconvénient. Le fer à souder à la sain, vous avez eu des 
minutes de suspens intense qui valent les ailleurs Hitchcock. Voire palpitant en a souffert, Faudra-t-il 
reconsencer avec Titai 





Votre attente s'achève avec cet article. Votre serviteur a pu en effet tester maintes aechines plus 
ou soins cosparables avec le HP7IE, grêce à l'aide on ne peut plus précieuse de la règle à calcul, 87, Blvd 
St gersain. (RAC pour les intiess.} 


MACHINE 1 à 1000 





NIDS 100 2CHR$ 


d00 E- 





HF7S H"56 4"53 
PIE ni 15*01 
PC 1506 15" 37° 1°29°36 
Xü7 "50 10"22 15*85 
PE7OQ 11"85 1°37°97 5°43 
PE100 FA 
PCI251  42*71... 
377 P56 5° 8"25 2: 
3"10 32°88 608 12°36 2° 
1°45 RXRXEXEEEE 316 73 17"6ù 





Lorsque l’on regarde le tableau “Résultat des tests”, on resarque dès j’abord la grande ligne blanche 
qui fait face au PCI251, De là l'oeil est attiré par le seul test effectué sur cette machine. 42*71 pour 
1000 boucles vides, C'est au aoins plus de trois fois plus lent que ce que font les autres sachines 
testées, 11 suffit de savoir qu'en toutes choses le PCI251 est plus lent que le FCI500 ou ie PH700, vous 
verrez plus Join qu'il sagit d'un critère suffisant d’élisination car ces deux aachines sont plutôt 
lentes, 








L'instant d’après l'oeil est attiré par les deux blancs de la ligne qui fait face au PHI0O, Celui qui 
gst dans la colonne *100 ?CHR$’ (qui correspond à *100 fois La fonction PRINT CHR$°; voir le tableau n2: 
“liste des programmes utilisés",) s'explique par l'absence de L’instruction CHR$ du basic du FBI00. le 
blanc de la colonne 1000 MID$ vient de ce que, lorsque j’ai fait les tests sur cette machine, j'ignorais la 
manière de prograsser sa fonction MID. Maintenant je sais consent on fait, sais je n'ai pas le courage 
d'aller embêter à nouveau les gens de la RAC pour si peu. 


Enfin, votre oeil s’est issobilisé, interloqué, sur le xxxxxxxxxx qui fait face au HHC de Panasonic 
dans la colonne des 1000 SINUS. Le aodèle de cette sachine que j'ai eu entre les sains à la RAC ignorait 
ce que veut dire SINII), c’est à dire que le aodule qui apporte les fonctions sathésatiques n’était pas 
dedans. Plus brièvesent, le basic était réduit à sa plus siaple expression, c’est ce qui explique, à son 
avis, les résultats ahurissant du HA, qui écrase tous les autres par sa vitesse. On s'a aéne dit que 
cette nachine cospilerait peut-être les boucles FOR-NEXT. Dans ce clisat de suspicion insupportable, j'ai 
disqualifié 1e HHC. 
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de signale, pour ceux qui l’ignorent que: 

- X07 désigne Je dernier de chez CANON, 

— PB706 et PB100 sont, chez CASIO les 2 successeurs haut et bas de gasne du FX702P, 

 MIQ désigne le dernier de chez OLIVETTI: format 21x29,7 (pour sallette, donc), écran à cristaux liquides 
orientable (8 lignes de 40 caractères) et clavier asachine à écrire (très confortable). 

— HX20 désigne la sachine EPSON sortie il y a un ou deux ans au ame foraat 21x29,7 avec en bas, un clavier 
machine à écrire, au #ilieu en haut un écran à cristaux liquides de 4 lignes de 20 caractères, à gauche de 
celui-ci une petite isprisante theraique et à droite un port d'extensions, 

J'ajoute enfin que 1000 G-R est l’abréviation de 1000 GOSUB-RETURN. (J'espère que ces brèves explications, 
que je souhaite superflues, auront ais tout je sonde sur la aése longueur d'onde). 


Après ces quelques mises au point un peu longues, venons-en à l'analyse des tests. Et d’abord 
pourquoi ceux-lè plutôt que d'autres? Les aille boucles vides sont désormais la règle parai ceux qui 
veulent cosparer les rapidités des petits matériels, sais j'ai estiné que ce test n’apporte pas 
suffissenent d'inforsations, sur les qualités d'un satériel. D'autant plus que dans un vrai programne, il 
y a peu de chance d'avoir effectivesent à isplanter 1000 boucles vides, à soins de ne pas avoir l'ordre 
NAÏT, Par contre MID$ est, en basic, un des ordres les plus fréquereent utilisés. De sème les quatre 
opérations sont utilisées de aanière intensive, j’ai choisi la division car c’est la plus difficile des 
quatres à programmer en langage sachine, 





Ce qui fait que la rapidité des 1000 Fi/e dépend autant des caractéristiques physiques de la sachine 
que du travail de ceux qui ont programmé le basic résident. J'ai rajouté le test des 1000 SINUS parce que 
je suis d’abord intéressé par les fonctions scientifiques, parce que la majorité des adhérents au PFC ont 
une HP4! qui est d’abord une sachine scientifique et enfin parceque SINUS est peut-être la fonction la plus 
difficile à programeer en langage sachine et le plus souvent la fonction la plus lente sur les ordinateurs 
qui la possèdent, Ce test représente bien ce que chaque sachine est capable de faire de plus lent, Les 
1000 SOSUE-RETURN viennent du trausatisee que j'ai eu face à la lenteur des branchements de ma chère 41, je 
lui ai pardonné depuis, sais je suis sûr que tout utilisateur de cette aachine, donc adepte bon gré mal gré 
de la programsation structurée, apréciera conne isportante la vitesse que aet la machine à localiser une 
adresse, 














Enfin Le test 100 PRINT CARS(45) qui doit afficher une série de À a°a été plus ou #oins suggéré par un 
autre eerbre du PFC-FC. C'est à aon avis le test le plus contestable de la série car il dépend énoraeesent 
des caractéristiques physiques du aatériel. Sans cospter que les ordres d'affichage sont on ne peut soins 
standardisés, résultats obtenus sur PCIS90 sont par exeaple aberrants, car l’ordre FRINT de cette 
sachine interrospt le prograsee en cours iéquivelent à FRONPT en RFN) et les 100 boucles ont été prograarés 
avec l'ordre PAUSE qui ralentit l'exécution du prograese. Et bien entendu, pour ce test, les machines à 
grand écran sont incroyablement avantagées, puisqu'elles ne font pas de gestion des caractères qui sortent 
de l'écran comme eur les eachines à écran aoncligne cosse le 71. On notera cependant la contre perforaance 
surprenante du X07 qui seablerait donc soins adapté aux jeux graphiques qu'on le croit habituelleæent. Je 
laisse Le soin de trancher cette question étonnante aux utilisateurs de ce aatériel, chose qu'ils ne feront 
sans doute jamais si celà déprécie leur eachine. 








“LISTE DES PROGRAMMES UTILISES POUR LES TESTS" 


ai 1000 boucies vides 
10 FOR 1=1 T0 1900 
20 MENT I 
30 PRINT "Fini!" 


Classeaent: HX20, HP75, M10, X07, PB100, HP7IB, PB706, PC1500. 


bi 1000 fois La fonction SINUS. 
10 FOR 1=1 TO 1000 
26 A=SINIL) 
30 NEXT 1 
40 PRINT “Fini!” 
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Classement: H(20, HP75, HP71B, M10, PB100, X07, PB700, PC1500. 


ci 1000 fois PI/e 
10 A=PI : B=EXP(1) 
26 FOR 1=1 TD 1000 
30 C=A/B 
40 NEXT I 
50 PRINT *Fini!" 


Classement: HP75 = HX20, HP71B, PB100, M10, PC1500, 107, PB700. 


d) 1000 fois GOSUB-RETURN. 
10 FOR 1=1 TO 1000 
20 60SUB 100 
30 NEXT I 
40 PRINT “Fini!* 
50 END 
100 RETURN 


Classement: N10, HP75, X07, HX20, HP7IB, PC1500, PH100, PB700, 


e) 1000 fois la fonction MID$ 
10 A$= *ABCDEFGHIJKLANOPORSTUVRXYZ" 
26 FOR I=1 TD 1000 
30 B$= NIDS(A$,10,6) 
40 NEXT I 
50 PRINT “Fini!® 


Classement: N10, K07, HP75, HX20, HP7IB, PCI500, PB700. 


#) 100 fois la fonction PRINT CHR$ 
10 FOR I=1 TO i0û 
20 PRINT CHR$(È5) 
30 NEXT I 
40 PRINT *Fini!® 


Classeæent: M10 = HX20, HP75, PB700, HP7IB, X07, HHC, PC1500 


Enfin pour essayer de donner une vision plus synthétique des tests réalisés, j'ai effectué un 
classement entre les machines pour chaque test (sauf pour PRINT CHR$) coane vous pouvez le voir ci-dessus. 
Et pour chaque sachine j'ai effectué la soyenne des rangs où est classée la sachine pour chaque test. Par 
exeaple, le HP75 est 2 pour le test a), 2 pour Le b), 1 {ex-aequo) pour le c), 2e pour le d) et 3e pour 
lee), Ce qui fait en tout: (2+2#1#2431/6 = 10/84 1,6. (J'ai dû adopter le systène de la soyenne pour 
intégrer le PBI00 dans ce classesent car il ne participe qu’à 5 des tests utilisés contre 6 pour les autres 
machines), 


Résultats: 


Le HP7S avec 1,6; 2e HX20 avec 1,8; 3e M10 avec 2,1; 4e ex-aequo HP71B et 107 avec 3,5; 6e PB100 avec 4; 7e 
PC1500 avec 5,5 et 8e PB700 avec 6. 


Cette sanière de faire #°a paru contestable, aussi j’attire votre attention sur le fait que les teaps 
du HX20 sont tous inférieurs à 35°, que ceux du HP75 sont tous inférieurs à 55°, ceux du HF7IB à 1°10°, 
ceux du M10 à 2°, la suite des résultats n’étant pas caractéristique. Déjà, dire que les teaps du M10 sont 
inférieurs à 2°, c’est lui faire beaucoup de tord juste pour la lenteur de sa fonction SINUS. 


Mais la vitesse n’est pas tout ce qui isporte dans un ordinateur. Les utilisateurs de La 41 sont bien 
placés pour le savoir, qui continuent à vénérer une machine totalenent dépassée sur ce plan là. Ainsi le 
HHC est très rapide sais je n’achèterais sûrement pas une sachine dont le clavier est le plus illisible que 
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j'ai jasais vu (indépendesaent du fait que l'absence de SINUS dans la version de base ae paraît être un 
véritable scandale), 


D'autant plus que La qualité des programmes utilisés pour les tests risque d’être contestée - à juste 
titre - par les spécialistes des matériels testés. Par exesple, certains ordinateurs sont beaucoup plus 
rapides lorsqu'on set les sous prograsses en tête de progranse plutôt qu’en fin, comme d'habitude, Mais 
c’est scieraent que j’ai adopté le point de vue du néophyte possédant juste quelques notions de basic et 
cherchant la machine qu’il va acheter. J'ai donc programné sisplesent. À priori les prograsnes siaples 
doivent étre siaple à entrer au clavier. Eh bien en fait pas du tout! Bien sûr mon néophyte est un sacré 
hypocrite car, il cherche surtout, en tant que aesbre du PPC, une #achine qui lui peraette de passer des 
monent agréables à programmer. 


Dans cette optique, il est invraisesblable d'investir dans un N10, qui est, certe, une excellente 
machine sais à destination ouvertesent professionnelle, plus orientée vers la fonction d'outil de bureau 
tle traitenent de texte en particulier à l'air reussi quoique pas très évident au presier abord) plutét que 
vers celle de babasse pour félé du langage sachine. J'ajoute que l'éditeur basic du M0 n’est pas des plus 
faciles à saisir, Ce n’est pas un pleine page et l’ordre EDIT vous set instantanésent en aode traitement 
de texte {seable-t-il), Mais j’isagine qu'avec le sanuel d'utilisation de Ja nachine tout doit devenir 
plus sisple... C’est un peu donsage. 


Le HY20 par son prix pourrait être intéressant, son basic est puissant, du méae niveau que celui du 
HP7S (donc très puissant en fait). J'ai beaucoup aisé l'éditeur basic qui considère que le petit écran de 
la eachine est une fenêtre sur un grand écran, Celà perset un véritable éditeur pleine page {les touches 
de déplacement sont mal foutues ais c’est toujours pareil, seul le X07 à vraiaent inové sur ce plan). 
Vraiment, si le H{20 n'avait pas été aussi énorme {le clavier de sachine à écrire est pratique sais je peux 
m'en passer), j'aurai fini par acheter Ça (si le HP71B n'était pas sorti). Mais le HÂ2 à un défaut encore 
plus japortant à ses yeux: coese beaucoup de portables, c’est un satériel sal ciblé corsercialesent; trop 
gros pour être vraisent pratique à transporter et pas assez puissant pour concurrencer les ordinateurs de 
table. (le HP7S n'échappe pas à ce phénosène, aëse s’il sesble rencontrer un bon succès auprès des 
laboratoires scientifiques et quoique pour Lui c’est le prix qui joue le rôle de l’encosbresent, Bref, ces 
atériels se vendent sal. Ce qui fait que peu de logiciels spécifiques sont créés pour eux, C’est bien 
joli d’avoir une eachine puissante et portable, mais si on est seul à l'avoir, celà cesse vite d’être 
asusant, La floraison actuelle des ciubs tournant autour de satériels spécifiques téacigne clairesent de 
la nécessité de ne pas s’isoler en inforsatique, Plus on est de fous à s'éclater sur un systèse donné, 
plus il ÿ a de chances que chacun profite au aaxiaue de son systèse, 





De mène que le HX20, le HP75 est une excellente sachine, très puissante, dont les logiciels sont 
faciles à utiliser, et le clavier des plus agréables. Mais à ce prix là autant acheter un ordinateur de 
table, qui, aëse pour un prix Jégèresent supérieur, ne pourrait être que plus puissant grace à ses 
disquettes et à son grand écran. En plus de sa conception de systèse feraé fait que peu d'utilisateurs se 
sont penchés sur le problème délicat d'accroître ses possibilités et les seuls logiciels tournant sur HP75 
actuellesent sont tous ou presque d'origine HP. Cette erreur de conception seable avoir été largessent 
ratrappée dans Le HP7IB, qui est un véritable systèse ouvert, (on devrait dire systèse “éventré" car il y 
a tellesent de sanières d'accroître ses possibilités qu'on aura du sal à choisir.) 


Le PCIS00 ne rencontre pas ce genre de difficulté, cosse en téeoigne l’activité fébrile des 
“Charpentiers". J'ai un peu hésité avant de l'introduire dans ces tests, car elle y fait piètre figure et 
celà fait du tord à une machine que je trouve excellente à tous points de vues. Les seules choses que je 
Qui reproche sont: son clavier (j’aise les claviers HP, je n’y peut rien) et son sélecteur de aode qu’il 
faut utiliser toutes les dix secondes pour settre au point un programae, sous prétexte qu’on ne peut pas le 
modifier en aode RUN et qu’on ne peut pas le lancer en sode HWRITE. J'ajoute qu’à la aoindre erreur de 
manipulation de ce sélecteur, on se retrouve en sode réserve, ce qui oblige à une concentration de tous les 
instants pour surveiller les indicateurs de sode à l'écran. (Je rappelle que sur le PC1500, contrairesent 
à ce qui Se passe pour la HP4{, le contenu de l'écran ne peraet pas Le plus souvent de savoir dans quel 
mode on est.) Malgré ce défaut, auquel on doit pouvoir s’habituer cette sachine reste, à aes yeux, une 
nécessité dans le genre, qui continuera à avoir du succès si son constructeur ne la laisse pas tosber. 11 
est regrettable, par exesple, que cette sachine au prix aodique ait des périphériques parfois aussi chers, 
Au moins avec HP, on sait qu’on devra de toutes façons payer très cher...) 
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Le X07 n'a agréablesent surpris par ses facilités d'utilisation et cette sachine #e sesble promise à 
un bel avenir, coase en téscigne sa bibliothèque de progranees qui s'étend chaque jour. Le clavier est 
très bien conçu, il s°a fait l’ispression d'une copie soyenne des claviers HP, avec touches bisautées et 
cliquantes. L'éditeur basic est très bien soutenu par les quatre grosses touches blanches à droite de 
l'écran qui servent à déplacer le curseur. Mais contrairesent à l'écran du HX20, celui-ci n'est pas une 
fenêtre ouverte sur un plus grand écran. Ce qui fait qu'après un LIST, par exesple, les lignes 5e 
bousculent à l'écran et c'est plutôt difficile à suivre. Japossible bien entendu de rappeler avec le 
curseur Les lignes qui ont disparu en haut de l'écran. de lui reproche surtout de ne pas tenir dans ma 
sellette et d'étre sathésatiquesent sous développée. Autre détail désagréable: les touches sont très 
sensibles, il est donc ispossible d'oublier 58 aain sur le clavier, cosse il s’arrive souvent de le faire 
sur ma 41, sous peine d'introduire des aberrations à ]’écran. En fait de reproche aussi au (07 une 
orientation gadget: grand écran, qui, on l’a vu, ne rend en fait pas beaucoup service pour l'édition, 
cosaunicateur à infrarouge {Ga peut servir un jour d'examen, sais sinon?), iaprisante trop petite pour être 
vraisent intéressante, de passerai rapidesent sur le PB100 et le PB700 qui s’ont déçu au delà de toute 
expression, ils ont pratiquesent le aëse éditeur sous basic et ne connait rien de plus mal pratique. Si 
vous avez vu fonctionner celui du F702F, c’est exactesent le ane. C'est à dire qu'il est ispossible de 
passer directenent de la ligne 110 à la ligne 100 et il faut se farcir un LIST cosplet, passé à appuyer sur 
la touche EXE, pour siaplesent resonter d’une ligne. Indépendearent du fait que le PBI00 est la eachine la 
plus soche actuellement disponible sur le earché, elle s°a surpris par sa rapidité. Vu la petitesse de son 
basic, c’est norsal. La lenteur de La fonction MID$ sur PB70C est dûe au fait qu'il est iapossible d'avoir 
sur cette aachine une chaîne de 26 caractères sans l’introduire dans un tableau, les chaines norsales {non 
incluses dans un tabieau) font au plus 16 caractères je crois. C'est tellesent ridicule que je se suis 
soigneusement attaché à utiliser une chaine de 26 caractères. Je ne vous parlerai pas de la qualité des 
claviers CASIO, je tiens à rester poli. Je signale que sur le PB100, comme sur le PC!500 il faut à chaque 
instant changer de aode et que le sélecteur est encore plus aal pratique que sur le PCI500, 


Enfin Le HP7IB. À part le HP75 et le HX20, c’est la aachine la plus facile à utiliser. J'ai envie 
soi aussi de vous en faire l'éloge sais cette sachine a tout de atae quelques défauts: les touches DEL et 
INS sont shiftées et leur présentation non standard ies rend difficiles à Ilocaliser. (11 s'agit de -CHAR 
et de I/R), Mais je a‘aperçois qu'il est totalesent idiot de chercher des défauts à ce clavier, puisque 
vous pouvez le redéfinir à votre quise. Donsage l'écran aoncligne? de préfère personnellement celà à la 
bousculade qui se produit à chaque LIST sur les écrans des X07 et PH700. Les teeps du HP71B sont 
excellents, vous avez resarqué? Si je vous dit qu’en plus pour 1000 5 et 1000 Pl/e, les calculs sont 
effectués sur 12 chiffres {+ 3 de garde) alors que les X07, M0 et PB700 les font seulement sur 6 chiffres, 
celà laisse réveur. Bien sûr j'aurai pu faire calculer ces sachines, qui ignorent ce qu'est PI, en double 
précision gais elles auraient été encore ralenties. D'autre part un néophyte n’est pas censé savoir ces 
subtilités, 


Non, vrai je n'ai pas trouvé de défaut au HP7IB qui ne soit rectifiable par l'utilisateur. Et 
c'est là la puissance d’un véritable systèee ouver quel que soit le défaut rencontré, il existe une 
solution. Par exeaple j'ai beaucoup regretté l'absence sur le HF71B des fonctions HR, HMS, HMS+ et HMG- de 
la HP4i. En astronosie, où les calculs d'angle se font en degré, ainute, secondes, ces fonctions sont très 
utiles. 1} se suffira Iorsque j'aurai son 7! de creer ces fonctions de toutes pièces, probablement en 
langage sachine ou en FORTH, puis de les intégrer au basic. Les acrobaties rendues nécessaires sur La HP4i 
parce qu'elle n'était pas au départ un systèse ouvert ne seront ame pas nécessaires. Les seules choses 
attaguables sur le 71 sont ces caractéristiques physiques: son écran aoncligne {j'ai donné son avis la 
dessus plus haut} et la petitesse de son clavier, qui ne devrait pas déranger les utilisateurs de HP4I, à 
son avis. Face au HP75, que je connais salheureusesent #al, il seable que le seul désavantage du HP71 soit 
sa vitesse, Si vous ÿ tenez vraisent, il reste Le fer à souder. 


En espérant vous avoir aidé à choisir entre le HP71B... 


Pierre LANGLOIS (PPC.PC n#87) 


PS: N'oubliez pas que plus nonbreux nous seront à l'avoir, plus il sera puissant!!! 
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Fhilippe DAVAS 


Aimé PIERARD 


Aimé FIERARD 


Fhilippe TENAND 


Fhilippe TENAND 


Fhilippe TENAND 


Fhilippe TENAND 





ACCES DIRECT EN ROM 
Four profiter davantage 
de vos modules ROM. 


AFFICHAGE DES DONNEES ASCII 
Fetit programme astucieux 
pour visualiser un fichier. 


CARACTERE SFECIAL SUR HF41CX 
Comment entrer des caracteres 
speciaux avec ED 7 


FOINTEUR FANTOME 
Une bogue alphanumérique 
de la HF41. 


LES CLUES HF4i DANS LE MONDE 
Récapitulatif (presque) 
exhaustif des Clubs. 


MEMOIRE VIDE FLUS RAPIDEMENT 
Eviter l'attente lors d'un CLF. 


BERACADAERA 
Code nul en mode Alpha 
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ACC: 





RECT EN ROM PAR STO b POUR HPäi 





avancer, que chaque possesseur de HP4! possède au mini 
ers de plastique noir que les initiés appellent une "RRROMN 





On peut affirmer sans trop 
exeaplairede ces petits bo 
encore un "aodule ROM”. 





Pourquoi ROM ? Encore un héritage outre-atlantique, mon brave monsieur, et oui est 
l'abréviation de Read Only Mesory; soit en un français approxisatif une mémoire que ‘nn ne 
peut que lire; donc, dans laquelle on ne peut pas écrire icela narait évident. mais. dont 
eu sujet de laquelle certains (les érudits!} l'appellent eésoire sorte, ou MEX, Bref, un bout 
de plastique vous dis-je, sais qui recelle bien des trésors quans on apprend à l'utiliser, 
Précisons de suite que je ne suis certes pas un gaître es-RON, aais que j'ai réussi à 
comprendre et utiliser certaines possibilités de ces RON, arûce aux docuaents existants sur le 
sujet. Voilà donc le résultat de res cogit 1 appartient à chacun de coacléter 
éventuellement ces quelques astuces dans les nueéros suivants de la revue (oui n’est alinentée 
que per chacun de nous), donc à vos claviers ! 

















tions 





Notre brave machine possède une suite de registres particuliers, qui ne sont pas laissés à la 
disposition de l’u . Ce sont des registres que le systèse 5e 
réserve pour stocker des inforsations qui lui persettent de ne pas perdre cogclétesent la boule 
face à nos chères élucubrations. Donc, donc disais-je, le processeur se set de côté les 
meilleurs morceaux, et ne n laisse que les registres courants, adressabies par les ordres 
connus À RCL, STO, REL IND, STO IND, etc... }, ordres que ‘on cospose facilement au clavier. 


isateur inorsslerent bien sûr 











I faut cependant savoir que le processeur n'est pas aussi fûté qu'il n’y parait, car il 
reconnait et exécute au: les ordres permettant d'accéder à ces faseux registres cachés au 
fond de ses entrailles, pour peu que ces ordres scient exécutés à l'intérieur d'un prograse, 
ou encore par assignation de touches. Ces instructions spéciales, n'étant pas prévues à 
l'origine par HP, ont reçu le doux surnos "d'instructions synthétiques”, (voir la littérature 
sur le sujet}. 














Créer et utiliser te la panoplie de ces instructions ne relève pas de ces quel lignes, 
et nous allons donc considerer que nous avons déjà sous la aain un aagnifique *STD E° bien 
frais, et son frère siargis ‘ROL D’. Ces deux instructions vont nous persettre d'accéder au 
registre de stockage du pointeur de prograree. En effet le processeur, toujours malin, utilise 
un pointeur de prograsse pour Savoir OÙ se trouve dans la séeoire de la machine, et ce 
pointeur se déplace en fonction des opérations qu’effectue la machine. Cosse notre processeur a 
le vue défaillante, il note dans le registre [ b ] la dernière adresse valide du pointeur de 
programme, ce qui Jui évite de devoir parcourir toute la séecire quand, par exeaple, il a 
besoin de retrouver le pas de progresse auquel il doit se brancher. 














Si nous aodifions perfiderent les instructions contenues dans le registre { b ], nous allons 
illico provoquer un saut du processeur, qui va aller se positionner dans la méaoire, à 
l'adresse que nôus venons de stocker dans [ b ]. Nous sosaes donc en aesure de nous positionner 
sur ur pas de prograsee quelconque de la RAM et aussi (de plus en plus dur...), de la ROM. Tout 
cela en jouant avec le seul registre [ b ], sais avec quelques précautions quand aère. 





La procédure est donc la suivante: 
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# Se positionner "eanuellement sur le pas de programme précis de la RON, sur lequel on veut 
effectuer le branchesent. 

2) Rappeler en X la valeur du pointeur de progranse par un *RCL b° bien dosé. 

3) Stocker précieusesent cette valeur dans le recistre aloha (pour ne pas norsaliser le contenu 
de À 77272272 605, SDS, SOS). 

4 Transférer le contenu du registre alpha dans un registre quelconque R{). 

5) Pour se brancher par la suite sur le pas de programae choisi, il suffit de rappeler la 
valeur contenue dans Ri), et de faire courageusesent un *STO b° sans retour, Et généralesent 
cela fonctionne parfaitesent, sauf erreur de aanipulation. 


Nous allons aaintenant en venir au fait de ces lignes, à savoir *LA ROUTE DE LA ROM', mais via 
l'utilisation d'un prograese contenu dans la PPERDM, et qui répond au petit non de "IE". 


Pour illustrer les facilitées apportées par ce prograsse, nous allons faire une petite 
application, par un branchesent sur le label "T1" du PPCRDN, qui produira un BEEP très 
particulier, (si tout sarche bien . Il faut assigner ‘510 b°, RCE b°, ‘STD N° à trois 
touches de la eachine, (cette condition est iapérative pour la suite de la sanoeuvre). 


Ÿ Tout d'abord, nettoyer le registre alpha de son contenu. 

4 Se positionner sur "T1" per un 610 “Ti, et vérifier en passant en aode PRBN, puis revenir en 
sode CALCUL. 

f Fasser en aode USER et effectuer le rappel du registre [ b ] par *RCL b’. 

? Stocker le contenu bizarroide de X dens le registre ALPHA à l’aide de *STO M. 

4 Recopier le contenu du registre ALPHA dans un autre registre (par exemple: RO), en 
effectuant au clavier ten soûe ALPHI hist”, *ASTG 0 

4 Effectuer aaintenant un ‘CAT 1°, histoire de sortir le pointeur de la ROM, puis purger le 
contenu du registre ALPHA, pour être sûr qu’il n’y à pas de triche... 

? Rappeler le contenu de RO! en ALPHA, par un ‘shift’, ’ARCL 0!’ en aode ALPHA. 

? Effectuer maaintenant au clavier la dernière opération par XEB "IE", Si tout a été fait dans 
les règles, un son aodulé doit se faire entendre. Sinon, 


BVENTAGES: 


Rapidité d'exécution du sous prograsse appelé. 
Gain de place iaportant en RAM (c'est à an avis l’argueent principal). 
ponibilité pereanente du sous prograsse pour peu que ie sodule soit là. 
Bccès a une multitude de sous-prograsses existants et disponibles qu'il suffit de retrouver 
à l'intérieur des sodules (bon courage !}, 


INCONVENIENTS: 


Obligation d’avoir le sodule appelé dans la sachine, 

Tapossibilité de resodeler le sous-progranse utilisé, comme cela est possible après un COPY 
RAM. 

Obligation de laisser disponibles tous les registres que va utiliser le sous programme appelé 
en RON. 

Nécessité de aettre toujours le asodule dans le aëse port, pour ne pas avoir a changer 
l'adresse du pointeur à chaque nouvelle utilisation du programe. 
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Voici le listing du progra 


O1 LBL "XE" 
02 XEG 14 
03 LBL 14 
d4+it 

05 SON 





10 FC? 14 
1 CLA 
12 FC 14 
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13 RIN 
tit 
5 IOM 
18 XON 
17 XOM 
18 +43 














e “XE" pour ceux qui n’ont pas le PPCRON, 


Bonne progransation à tous. 


Philippe DAVASE (PPCPC77-PPCT404), 





A. FIbrARD PC 55 AFFICHAG» Dss DONNbeS ASCII 








BHOLEL “CET lors de l'eprarition du texte celuieei 
&e “IE reste à l'affichage un laps de temps 

ET PROMPT proportionnel à Is lengueur de la ligne. 
gé SEEKFT Cette séquence est irncrée 'ors de 

ASeLEL 0! l'impression, 


Le programme que j'ai conçu met le 

n° de ls ligne à ls fin. 

Si ce n° n'est pas nécessaire on peut 
supprimer le: pas 7 à 10. 





CARACTERE SPECIAL SUR HF #1 Cx 


La fonction ED permet une meilleure 
gestion du fichier ASCII. 

A\ant d® introduire la liste de mes 
fournisseurs j'ai fait la petite 
routine ci-contre. 

Faire défiler le texte soit par GEI 
scit en mode ED. 

La ligne étant trouvée procéder 
come suit 

mettre le CO er 
nombre de lettres ou esraces avant 
la lettre à chanyer., R/S 

Appereft alors ls ligne changée, 

&s une L1 CX remplacer les 
nes 28 et 20 per AVIE* 

















1 


J'espère que ces petits teurs de main 
auront intéressé quelques amis. 


Que ceux qui estiment avoir été aidés 
persévèrent et que les autres qui 
lisent ces lignes en haus-ant les 
épaules prennent leur plume et nous 
fassent profiter de leurs astuces. 





HF philement vêtre 
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POINTEUR FANTOME SUR HP41 


Une anomalie s’est: apparue dans le registre alpha de la HP41. Remplissez ce registre avec une 
succession de virgules et d'espaces, alternativement. Buand le bip vous indiquera qu'il n'ya 
plus de place, efface tout. Au osent d’effacer les derniers signes alphanumériques, 
ralentissez la cadence. Après avoir effacé le dernier, continuez à appuyer sur la touche 
d'effacement (ayez confiance!) et que renarquez-vous à la gauche de l'écran ? Le pointeur est 
revenu... 


Etrange, n’est il pas? 
Philippe TENAND (PPCPC 44) 
2 bis, Rue de l'égalité 
94300 VINCENNES. 


LES CLUBS HP4 DANS LE MONDE. 


Chaque club d'utilisateur de HF41 éditant son journal, vous avez peut-être envie de vous 
abonner à un journal étranger. Voici les plus représentatifs d'Europe et d’ailleurs. 


- Club PPC PARIS-CHAPTER 56, rue Jean-Jacques Rousseau 75001 PARIS-FRANCE, 
- HP4i CLUB (Schweiz) Plattenstrasse 44 8 152 GLATTBRUG-SUISSE, 

- ELUR de Toulouse 77, rue du Cagire 31100 TOULOUSE-FRANCE, 

- PPC JOURNAL 2541 W. Caaden Place, SANTA-ANA, CALIFORNIA 92704 U.5.R,, 

- CCE club 143, Buardinistrasse D.8 MUNCHEN 70 R.F.R, 

- PPC UK Astage, Rectory lane, windleshan, SURREY GU 206B4, GRANDE-BRETAGNE, 
- PPC Hollande Valenti jnkade 2 1094/5R AMSTERDAM-HOLLANDE 

- CCD Kempener str. 156, 5060 BERZISH-GLADBACH 2 R.F.A, 

- PPC Lausanne case postale 118, 1000 LAUSANNE 20-SUTSSE, 

- CCD COMPUTERCLUE DEUTSCHLAND Postfach 129, 6242 KRONBERG-ALLEMABNE 


Sachez qu'il existe des clubs PPC en: Australie, Canada Danemark, Norvège, Espagne, Suède, 
Angleterre, Etats-Unis (ceux qui se sont sanifestés à l'ancêtre PPC Journal) et rien qu'aux 
Etats-Unis il y a 29 clubs {avec journaux), dans 21 états d'Amérique. NOUS NE SOMMES PAS SEULS ! 


Philippe TENAND (PPEPC 44) 


Cher asi, 
Quelques précisions: 


Les trois club CCD sont un seul et eee club, dont l'adresse est: CONPUTERCLUB DEUTSCHLAND e.V 
Postfach 2129 - 6242 KRONBERG 2 - ALLEMAGNE. 

Le club PPC US initialesent créé par Richard NELSON, après une sacré polérique, s’est arrangé 
de faÿon que Richard donne sa déaission et les nouvelles adresses sont: pour le club PPC, P.0, 
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Box 9599 - FOUNTAIN VALLEY - CA 92728 - 9599 - U,S.A. Ce club édite deux journaux, l’un réservé 
au calculatrices programmables, l’autre aux ordinateurs. Et Richard a créé un nouveau club avec 
son propre journal, totalerent indépendant de PPC, L'adresse est: CHHU, Richard NELSON - 2545 
W. Canden Place - SANTA ANA - CA 92704 - U.S.A. 

Enfin un autre club dont tu n’a pas sentionné l'adresse, est le club PPC TN (club australien) 
et dont le journal est très intéressant. Son adresse est: PPC Technical Notes - Box 512 - 
Ringwood - VICTORIA - AUSTRALIE. 


Philippe 


MEMOIRE VIDE PLUS RAPIDEMENT SUR HP41. 


Vous avez un lecteur de codes barres, et dans votre HP41 vous voulez effacer un long programme. 
Vous ne voulez pas faire MEMDRY LOST, eais l'attente après un CLF, ALPHA, ALPHA, vous sesble 
interginable. Si vous avez à portée de la sain un quelconque prograsse isprisé en codes barres, 
vous avez la solution. Prenez votre lecteur de codes barre et entrez dans Ja sachine la 
première ligne de n’isporte quel prograsse en codes barres, puis appuyez sur la touche 
d'effacesent, La ligne a autosatiquesent reaplacé votre long prograsne précédent. Faites alors 
CLP, ALPHA, ALPHA, et le tour est joué. Toute cette suite d'opération est plus rapide que le 
teaps d'attente pour qu'un long prograese s’efface. La ligne lue efface juste le prograsse ou 
le pointeur était situé, ce qu'un MEMORY LOST n’aurait pas fait, La seconde solution, si vous 
possédez un lecteur de cartes sagnétiques, est d’avoir préparé une carte ou il n’y a rien 
d'enregistré. Cette carte ne doit pas être neuve, elle doit avoir déjà au aoins une fois 
enregistré quelque chose. Quand vous voulez effacer un long programe, passez cette carte 
magnétique, c’est tout. De plus, après avoir respli une HP4I de *+, il est iapossible de faire 
610 2000 ou plus, le saxiaus étant 1999. À part aller à la fin de la séaoire et revenir en 
arrière pas à pas, ou d'aller au pas 1999 et avancer manuellement, ce qui est très long quand 
la sésoire est pleine, Hewlett-Packard n’avait pas pensé à Ça. On ne pense pas toujours à créer 
un Jabel là ou on voudra aller plus tard aodifier quelquechose, et y aller avec un 610 
BLPHAnueérique. 


Philippe TENAND (PPCPC n44), 


RBRACADABRA 


Sur une HP41 en sode alpha, faire {:) ou (SPACE, puis :) seable visuellesent la sêae chose. 
Pourtant si on actionne la touche d’effacesent, dans le presier cas on efface qu’un seul signe, 
mais dans le second cas deux signes d’un seul coup. 


C'est ce que l’on pense en faisant: À, B, C, Virgule, Space, Virgule, puis en appuyant 6 fois 


JPC 
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sur la touche d’effacesent: la sachine efface 8 caractères, puisqu’un ’Space” est un signe en 
lui atee. C’est deux de trop, que le pointeur en fait n’efface pas! La HP41 conserve donc les 
deux premiers (À et B). La preuve? Vous ne voyez plus rien en alpha, sais sortez-en et resettez 
vous-y: À et B sont revenus. Le sêse phénomène que ce soit avec le point, la virgule, ou (:), 
L'espace blanc est bien confondu avec la fonction nulle {ou *NULL’ codée zéro), ce qui peraæet 
l'erreur, car sans aettre de Space” il n’y à plus ce phénomène. Les erreurs du pointeur sur le 
code nul sont connues: avec un code barre, le lecteur confond code nul (barre en haut en 
progransation synthétique) avec l’effacesent (<-). En sode affichage, la HP4] refuse d'afficher 
un code nul s’il n'est pas précédé d’un code non nul. Seul ja programation synthétique peraet 
de générer a volonté un code nul avec la barre en haut de l'affichage. Le code nul (NULL) est 
une des hantises du prograeseur de HP41, surtout du *NNU* ou *NON-NORMALIZED-USER" (utilisateur 
non norsalisé), come dirait Williae C. Wickes ! 


Philippe TENAND (PPCPC 44) 
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Lionel ANCELET HF41 VARIATIONS SI 
essages du module 1/0. 


MARTINET/DAVID HF75 ANALYSEUR DE HOUCLE 
Le mode "Scope" du HF7S5. 


VARIATIONS SUR L'HPIL le premier est une traduction déguisée. 





ns étudiées sont les fonctions de 
ssion où de 





Les fo 
contréle, et non celles d’iap 
stockage de aasse (pour l'instant)... 





d'ai fait des expériences sur le HPIL pour 
déterainer quels aessages élésentaires sont 
envoy sur La boucle par les instructions du 
aoduie “Extended 1/0". 1 Pour faciliter la lecture, appelons la séquence 

î IDYOO AAU RFC AADOI = Init 








La configuration étudiée correspond à une boucle 
ne comportant que Je contrôleur HPIL, et 
l’analyseur (qui ne se comporte pas cosse un 
périphérique, puisqu'il retransæet TOUS les 
messages sans aodification). Le contréleur est 
une HP4I + aodule HPIL + aodule X.1/0, le 
cosautateur du HPIL étant en position ‘Printer 
Disable", J'ai supposé que le lecteur était 
fasilier avec la tersinologie HPIL. 11 peut lire 
“Autour de la Boucle" ou “The HP-IL Systee® dont 


FINDID. uses Init TADOI RFC SDI UNT RFC IDYOG 
RFC AADO1 

init TADO1 RFC SAI UNT RFC 

..Init 1DYO0 

..Init LADOI RFC PPD RFC UNL RFC 

..Init LADO1 RFC PPEx RFC UNL RFC 

POLLUNC... Init PPU RFC 

SRO?... ..Init 1DYO0 

7 DEVL.........,.,1nit LADOS RFC DDLO7 RFC UNL RFC 
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T'DEs-sseserie DDLO7 RFC 

INXB (mode ADRON).Init TADOI RFC SDA UNT RFC 
"(node ADROFF).SDA 

CLRLOOP. .Init DCL RFC 

CLRDEV.. nit LADOI RFC SDC RFC UNL RFC 

OUTXE (ADR! nit LADOI RFC DABx UNL RFC 
" CADROFI AB 

OUTAE (ADRON).....Init LADOI RFC DABx, ... DABX,, 

ENDx, UNL RFC 

..Init LED RFC 

.Init NRE RFC 

nit TADOI RFC SAI UNT RFC 

nit TADO! RFC SDI UNT RFC 

nit 

.Init IFC RFC 

TRIGGER. .Jnit LADOI RFC GET RFC UNL RFC 

INSTAT....,.......Init TADOI RFC SST UNT RFC 

Dhs ssssssssosss Init TADOI RFC SA! (41 desande 
{sans Drive, le type d'accessoire pour savoir 
mode AUTOIO) s'il s'agit d'un drive...) UNT 

RFC IFC RFC 

OUTA (CF 17)......Init- LADOI RFC DABx, ... DABS, 

23 DABI0 UNL RFC 

it TADOI RFC SDA UNT RFC IFC 
RFC 

.Init LPD RFC 




















LOCK... 





STOPIO..., 















IN4 et IND. 





PHRDR... 






REMOTE. nit REN RFC Init LADOI RFC 
CNDOO RFC UNL RFC 

LOCAL... Init LADOI RFC BTL RFC UNL RFC 

Mise sous tension. 1IDY35 IFC RFC Init TADO! RFC SAI 





UNT RFC 

.Init TADO{ RFC SAI UNT RFC 

jer sur la boucle 

nit LADOI RFC 

init TADOI RFC SST UNT RFC 
-Init TADO! RFC LADO2 RFC SDA UNL 
RFC UNT RFC 

.SDA 

css CMDx RFC 















Les autres fonctions d'Entrée/Sortie corse INAC, 
OUTAC, INP, OÙTP, et: sarchent cosse INIE, 
GUTXE, et sont affectées par le aode ADRON ou 
ADROFF, 





de ferai ensuite des expériences avec un ou 
plusieurs périphériques: 


À Suivre ! 
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ANALYSEUR DE BOUCLE, POUR HP75 


En cospléaent du dossier sur l'HPIL paru dans JPC 
No 20 (décesbre B4/janvier 85), nous vous 
proposons ce aois-ci un petit progranse qui saura 
vaus intéresser, pour peu que les messages aient 
excité votre curiosité. 


En effet: la HP4i dispose du module HPIL 
Developæent, vendu dans le "Kit convertisseur" 
référencé HPB2166C (4000 à 5000 Frs environ). 
Pour ce prix là, vous disposez, entre autres, de 
la fonction “SCOPE*. Pour ceux qui n’ont pas eu 
la chance de connaître La HP41, "SCOPE" perset de 
suivre en direct le grand feuilleton palpitant de 
la boucle (autrement dit, de suivre les aessages 
HPIL)... 


Le 75 serait-il donc aoins puissant que la 41, 
puisqu'il souffre de la tare de ne point disposer 
d° "analyseur de boucie® ? 

Eh bien NON ! Nous l'avons créé grace au LEX 
"RIDWIO" se trouvant lui aussi dans le “Kit 
convertisseur" et conçu pour le HP75. 


PRINCIPE: 


Le  HP75 comunique avec l'extérieur par 
l'intermédiaire d'un circuit intégré: le Circuit 
HPIL ILB3-0003. C’est lui qui se charge de toutes 
les opérations d'Entrée/Sorti 





Ce circuit est un processeur spécialisé, qui est 
cossandé par l'intermédiaire de registres 
internes décrits ci-dessous: 


Hs sont au nosbre de B (0 à 7), chaque registre 
faisant 8 bits (0 à 7). 


RO: Status register 
Ri: Interrupt Register 
R2: Data Register 











R3: Parallel Poll Register 
R&: Loop Adress Register 
RS: Scratchpad Register 

Ré: Scratchpad Register 

R7: Auxiliary input Register 


Les registres qui nous intéressent sont les 
registres R0, Riet R2. Certains d’entre eux ont 
une signification différente suivant l’action 
exercée sur eux (lecture ou écriture). 


Le registre © est particulier: il contient les 
inforsations sur l’état du circuit HPIL (donc du 
HP7S): Etat Controleur actif (Bit 6=1); Etat 
émetteur actif (Bit 5=1) ou Récepteur actif (Bit 
4=1), En mode normal, le bit R0:6 (bit 6 dans RO) 
est à 1. D'autre part, on ne peut avoir 
sisultanésent les états récepteur et éeetteur 
actifs. Le aode ‘Loop Analyzer" (SCOPE") 
s'obtient en settant à 1 les bits 4 et 5 
(48=32+16 en décisall. C'est ce qui est fait en 
ligne 2000 (WIO 0,48 : écrire dans le registre © 
la valeur 48). Les bits Ô à 3 sont fonction des 
aessages reçus (IFC, RFC, etc). 


Guand une instruction HPIL arrive, sa partie 
"Contrôle" est rangée dans les 3 bits de poids 
fort de Ri, et le reste est placé dans R2. 

Le circuit intégré envoie autosatiquesent un 
message dès qu'il y a écriture dans Rl. Le 
prograsæe lit donc Ri pour conaître le type de 
l'instruction (Groupes Données, Cossande, Prét et 
identification), et ensuite les 8 bits de R2 pour 
avoir le partie "inforsation" du sessage. 

Cette instruction, une fois décodée est 
enregistrée dans un fichier texte (édité), et 
renvoyée, par réécriture de sa partie contrôle 
dans RI:9-7. 





UTILISATION: 


Prenez une boucle norsale, settez un contrôleur, 
E00 g de farine et ses périphériques. Préparez-ia 
en prenant soin de garder le HP7S en dehors 
Préparez le HP75 cosse suit: s'il n'était pas 
déjà déclaré OFFID, faites-le. Lancez le 
prograsme (RUN "SCOP SCOPE édite le fichier 
texte "HPIL". 

Quvrez La boucle, insérez le HP75, et refermez le 
tout, Exécutez un ordre HPIL sur le contréleur, 








: 
ï 
: 
: 


et regardez ce qui se passe sur le HP7S ! 
Une fois votre séquence terminée, déconnectez le 


HP75, et arretez-le par [ATINI. Le fichier HPIL 
étant édité, vous pouvez visualiser tous les 
messages. 





RESTRICTIONS: 


Trois séquences du HP71 ne sont toutefois pas 
cosprises par "SCOPE": il s’agit de “CONTROL ON', 
SRESTORE 10" en état contrôleur. 5i vous éteignez 
votre HP71, ne le rallusez pas en présence du 
HP7S. 


Une seule explication nous paraît plausible: 
Durant ces séquences, le HP71 envoie une série de 
NOP toutes les 47 as environ, et attend le retour 
du premier d’entre eux, afin de vérifier la 
continuité de la boucle. Et le HP75 attend un RFC 
après NOP......... {? 


REMARQUES: 


Vous trouverez, plus loin, quelques séquences 
type, générées par un HP7i. Afin de bien 
comprendre ces séquences, quelques renseignesents 
supplésentaires ne seront pas superflust 


Configuration de la boucle: 
Position 0: HP71 contrôleur 
position À 
Position 1: HPB21634 (interface vidéo) 
Position 2: HP829058 (iaprisante 80 colonnes) 
Position 3: HP91144 (lecteur de disquettes) 
Position 4: HP@2161A (lecteur de cassettes) 
position B 
Et enfin retour au HP71 contrôleur. 





De par le principe du prograsre "SCOPE*, le HP75 
est totalement invisible sur la boucle. 11 n’est 
ni périphérique, ni contrôleur, Il à un statut 
assisilable à celui d’un cable HPIL (Un peu cher 
le cable, tout de séne). De ce fait il n’a pas 
d'adresse, Nous l'avons sis, pour chaque 
séquence, en position À (entre HP71 et Vidéo), 
puis en position B (entre lecteur de cassettes et 
HP71), ceci pour bien sontrer les différences. 


JPC 
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Corne vous l'avez peut-être déjà compris, ce 
prograee nécessite la présence du fichier LEX 

RIOWIO" pour fenc er, I] n’est pas très long 
{47 octets}. À bientôt aux réunions... 









Pour de basses raisons de place dans JPC, nous 
n'avons salheureusesent pas pu vous expliquer en 
détail Je fonctionnesent de ce circuit intégré. 
Si cela vous intéresse, référez-vous au "Kit 
convertisseur”, Si vous êtes norbreux à écrire, 
nous irons un peu plus loin dans son étude. 


A bientôt, et. 
Heureuse programmation ! 


Michel MARTINET et Pierre DAVID 


EXEMPLE 1 : PRINTER IS HPB2905B 





POSITION À POSITION B 


UNL UNL 
RFC RFC 
TAD 1 TAD 
RFC RFC 
SDI SDI 
TAD 2 
RFC 
sil 
DE 72H 
DÉE 80 F 
Lu sé 8 





> 0 9 @ 





EXEMPLE 2 : DEVIDS(":TAPE") 


POSITION À POSITION B 


UNL UNL 
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RFC 

TAD 
RFC 

DÉB 48 0 


POSITION E 


UNL 
RFC 
TAD 2 
RFC 
DAB 161 
DAB 4 
ET0 
UNT 
RFC 
UN 
RFC 














- Cette fonction utilisateur teste le bit R dans l’octet N. Elie renvoie { s'1] est vrai. 






pal. 












sont stockés dans un 
nt dès son lancement 


r texte appelé HPIL. Le progranse SCOPE l'édite 








tuelles lignes sont suppriaées 
ELETE 1,9999 
L TE "HPIL?,TEXT 








HP75 d‘attendre indéfin 





e d’un appareil de la bouc 





KID 0,48 
HRIDI) 


} THEN 2616 








THEN D$="GET” 


4050 THEN D$="ELN" 
4066 & THEN D$="NOP" 
4070 7 THEN D$=' LU 
4080 5 THEN D$="DCL" 
4090 THEN D$=" PU" 
#06 1 THEN D$='EAR" 


4110 IF R2331 AND R2C63 THEN D$="LAD *ESTRS(R2-32) 


4120 THEN D$="UNL° 

4130 AND R2€95 THEN D$='TAD *ESTRS(R2-64 
4:40] THEN D$="UNT” 

H50 >95 AND R2C127 THEN D$="SAD *ESTRS (R2-98) 


4160 IF R2=127 THEN D$=71SA" 
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4170 IF 27 AN À FASTRS 
4180 1 





HEN D$="DDL ? Ô 
24 THEN D$="DDT *&STRSIR2-192) 





D *ESTRS(R2-128) 


FRSTR#IR2-160) 


FESTRS(RZ-192) 
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an-Jacques MOREAU 


Michel MSRTINET 


HP71 FORTH 


PAVID/WEIL 


HF7i BASIC 





IDENAY 


Jean-Jacques MOREAU 


Jean-Fierre BONDU 


Olivier ARHEY 


HP71 ASSEMBLEUR 


CONTRASTE 7 


CNTRST. 


La fonction 


ER SANS ASSEMBLEUR 








L'EVENEMENT 








EMBLEUR 
s 


S 
ssembleur HF71, 


Forth: 
EesSses: 





ateur mus 
performant. 


Fropres ou gé alisées 
sans module maths. 





MÉTRICES À EDITER 


FAS 


Editeur de matrices 
avec module Mathe. 


FROFRES, MES VALEURS 7 
Foly e caractéristique 
avec module Maths. 
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GUEL CONTRASTE AVEZ VOUS ? 


Come chacun le sait, Je HP71R est un appareil 
tourné vers l’avenir. En effet, Hewlett Packard a 
eu la gentillesse de nous fournir toutes sortes 


de spécifications qui lui sont relatives. 


Grace aux IDS, il nous est possible de trouver un 
grand nosbre d'adresses dont le contenu est bien 
intéressant, Ainsi, à l'adresse ZEJFE se trouve 
la valeur du contraste courant. Un sisple fichier 
LEX nous perset alors de récupérer cette valeur. 


Laurent ISTRIA (45) 





ASSEMBLAGE SANS ASSEMBLEUR 


Le but de cet article est de vous pergetire de 
faire de l’assembleur sans sodule asseebleur, 





La séthode en elle-même est fort sisple le 
f y penser: il faut d’abord traduire 
les enésoniques du progranse à assesbler en codes 
saux, puis Îles placer dans une variable 
alphanueérique de taille convenable, Nous 
nosmerons cette variable A$. Il est alors 
nécessaire de disposer d'un port indépendant 
absolument vide ipar exesple le port 0.01). Pour 
cela, exécuter CLAIN PORT(.01), puis FREE 
P }. À l'adresse hexadéciezle ‘40000 se 
trouvent les B codes : B3DDDDDE. Ceci est vrai si 
votre système est configuré sans aucun aodule 
suppléeentaire. Autresent l'adresse est différente 
à xi4096) octets prés. 

Îs signalent à Ja aachine l'existence du port 
(6.61). - À propos, pourquoi ne tenterait-on pas 
de créer des ports indépendants de 8, voire 16 Ko? 
Si maintenant l'on copiait un programme dans le 
port (0.01), il viendrait se placer derrière le 
E, donc à l'adresse ‘40008, 











Ii nous suffit donc de placer A$ à cet endroit 
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(As contient, rappelons-le, le prograsse 
assesbleur et l'en-tête du fichier LE) 
correspondant}, pour disposer d'un fichier LEX. 


Prenons cosse eeaple 
dans JPC No 


le fichier KEYNAIT paru 
26 (bécenbre 84/Janvier 85). Entrez 
dans &$ l’ensesble des codes se trouvant dans la 
3ère colonne de la page 52 (un progranse à la fin 
de cet article vous aidera dans cette 
sanipulation). Videz le port (0.01) coese décrit 
précédesment. Tapez alors: POKE *40008”,À$. 

Un catalogue vous assurera de la présence d'un 
fichier LEX de 55 octets dénommé KEYNAIT. La 
fonction KEYN&ITS n’est pas encore exécutable, 
car le ignore partiellement son existence, 
Pour y resédier, copier le fichier en sénoire 
centrale (COPY KEYNAI 
Désorssis, vous pourrez 

KEYHAIÏTS comes n'isporte 
fonctions d'origine du HF71. 








utiliser la fonction 
laquelle des autres 





REMARQUES: 
I est encore indispensable de travailler en 
séacire indépendante à cause de l'organisation de 


la séauire principale 
consende...}, 
Fonction 
dernière 
problèee 
SEEK$ et 
laquelle 
créer en 


présence de la pile de 
et de l'iapossibilité d'utiliser la 
POE sur la totalité d'un fichier. Cette 
contre-indication de posera plus aucun 
lorsque nous disposerons des fonctions 
SOFE, encore en préparation à l'heure à 
j'écris ces lignes. I] suffira alors de 
séscire {indépendante ou principale) un 
fichier de type quelconque (HASIC..,) et de 
Jongueur la longueur du fichier LEX à créer, puis 
de faire SÛKE ADDRSE NOM), A$, 








Nous tenons à eettre en garde le lecteur en garde 
contre le danger persanent de Mesorÿ Lost, qui 
détruire tous les ports indépendants, 


Progranse d'aide à la frappe: 

Fierre m'a desandé d'écrire ce programse pour 
faciliter a création des fichiers LEX, Il 
utilise des entrées cospatibles avec la nouvelle 
présentation dans JPC des fichiers LEX, c'est à 
dire: un ensesbie de dix codes hexadécimaux, 
suivis d'un code de contrôle, sosse des octets 
soduio 256, code qui persettra une vérification 


sosnaire des entrées. 











Le progragse 
premiers octets 
etc... 

ll affiche en peraanence: 

À gauche, le No de la ligne en cours de traitement 


commence par vous desander les 5 


du fichier, puis les 5 suivants, 


À droite, le No de la ligne précédente et son 
code de contrôle. 


Une fois le progranae nésorisé, vous pouvez où le 
stocker  iemédiatenent ic'est ja ‘phase 
d'assesblage"), où visualiser chacune des lignes 
entrées, le No de la ligne et le code de contréle 
de celle-ci étant affichés ic’est l'option 
"Hontre®), 

Dans ce dernier cas, une pression sur la touche 
IN] permet de aodifi la ligne courante. Une 


pression sur [END Lil ranène à la ligne 
suivante, 








Jean-Jacques MOREAU 


CODES DE KEYNAÏT CODE DE CONTROLE 


B4 549575 4 188 
94 45 02 80 2E # 
Gü 81 16 BG 90 19 
48 37 00 02 51 él 
01 60 00 
1ù Où 00 
Où 66 0E 10 ÿ0 
FF H4 54 95 75 
14 94 45 42 
3F FO 01 3è 
8i 37 10 96 
Cé Où 45 41 
15 511815 
8 AC A! 8F 
76 06 BD FO 00 








DESASSEMELEUR 


Voici comme annoncé le sois dernier dans JPC 
une version courte de son désassestieur 
HP7IB. Cette version fonctionne sans l'HPIL, ce 
qui est plus corpatible avec un articie 
paraissant dans notre journal préféré, En effet, 
une version HPIL etc, aurait considérablement 
augeentée La place occupée par l'articie et 
surtout ia place prise par les fichiers dans la 
sésoire centrale de Titan. La version suivante 
est à son sens la plus courte tout en gardant une 
bonne souplesse pour je désassesblage. J'ai 
choisi le basic cose langage pour deux raisons: 
le presière, tout Île sonde parle "Basic et la 
seconde est que la avindre déclaration Forth dans 
la sésoire de Titan occupe beaucoup d'octets 
SFORTHRAM:. 


Le désassesbieur tient dans trois fichiers: un 
fichier basic cosportant deux routines (SUE 
DESASin$) et HNEMDie$,n$)), un fichier texte 
DESAT contenant toutes les anésoniques de 
l'assesbleur du HP7IR (lignes 0 à 384) et enfin 
un petit LEX d''ID" 92 contenant 7 fonctions 
ai igues, J} existe une table contenant 
enésoniques dans la ROM Forth/âssesbleur qui 
bientôt décodée ce qui persettra de 
reaplacer ie fichier DESAT et la SUB MNEMD par 
quelques octets et persettra de faire tenir 
l'ensesble du désassesbleur dans acins de 4 ko 
{ur port). 





sera 


DESASin$i: c'est la routine principale, n$ peut 
être une adresse ou un nos de fichier. Si le 
fichier est privatisé, DESAS lit maigré tout. On 


a donc accès à toute la carte mémoire. 


MNENDIe$,n$l: décode les codes HEÏA se trouvant 
dans a$ et renvoie la anémonique dans n$, Si le 
code a$i ne correspond à rien, NNEMO renvoie s$ 
dans n$ suivi d’un point d'interrogation. Les 
enéaoniques sont stockées dans le fichier texte 
DESAT, Ii est très isportant que ces anéaoniques 
soient classées par ordre ide [00 RINSIN] à 
ÎFF D=-D-1 A3 respectivement des jignes 0 à 384 
ou 1 à 385 si vous utilisez l'éditeur de texte. 


DESAL: LEXO92 cosprenant 
alphanunériques suivantes: 


les sept fonctions 


JPC 
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ADBUF$(n$): cette fonction est de Pierre David, 
elle renvoie l’adresse d'un BUFFER. Exesple: 
ADBUFS{*BFC"). "BFC" est le buffer “bLEX" où se 
trouve toutes les adresses des LEX présents dans 
la sésoire du HP7IB. Voir article de Pierre dans 
JPC-AVRIL. 


ASC$(n$): transforse une chaîne de caractères en 
ASCII, c’est-à-dire en ne gardant que les 
caractères dont les codes sont cospris entre 32 
et 126. Les autres sont reaplacés par des points 
{caractère 46). 


HTA$: transforme une chaîne  alphanusérique 
représentant des caractères codés HEXA en ASCII. 
HTA$ ne remplace pas les codes non ASCII {voir 
ASC$) par des points. [1 faudra donc utiliser la 
fonction ASC$ en conplénent. 


KEYNAITS : cette fonction est de Hewlett-Parkard, 
voir  JPC  décesbre-janvier, où elle est 
désassseablée en long en large et en travers. 


RED$(n$) : suppriee les blancs en début et en fin 
de chaîne. (ADDR$(" 12345 ‘)) donne une erreur 
alors que ADDRSIREDS(" 12345 ")) fonctionne 
correctement, 


REVSin$) : inverse tout siaplesent le contenu 
d’une chaîne alphanusérique 
(REVS ('aReUh*)="hUeRa"). 


SEEK$in$,n) : équivalent à PEEK$(n$,#) sans tenir 
cospte des zones privatisées, GSEEK$ est plus 
rapide que PEEK$ (134). 


Enfin voici quelques bonnes adresses pour 
utiliser DESAS: 
LEX000 


Main Table : 1E59F 

LEXOG1 

Main Table : 1DD6C 

LEX002 (MATHROM) lorsque MATHRON est en 48008 
Main Table : 48095 

LEX047 (FORTHROM) lorsque FORTHROM est en 58008 
Main Table : 58046 

LEX255 (HPILROM) lorsque HPILRON est en 40008 
Main Table: 40095 


Voilà, il faut environ 8300 octets de libre dans 
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la néacire et environ 200 de plus pour faire 
tourner DESAS, et surtout beaucoup de courage 
pour J}’entrer en séaoire. 1] vous faudra avant d’ 
écrire Je BASIC assembler le fichier texte 
DESQURCE listé, plus loin pour obtenir les sept 
fonctions alphanusériques cosplésentaires. 

À la ligne 1080 {*W°: DISP }, si vous désirez 
afficher les op-codes des aésoniques, ils 5e 
trouvent dans B$[1,P-1), Je n'ai pas progranné 
leur affichage pour éviter les chaînes trop 
Jongues et les déroulesents d'écran répétés. 

Enfin une dernière chose: n'écrivez pas les 
apostrophes en pupitrant les labels alpha, vous 
gagnerez quelques octets. Bon courage et à tout 
de suite ! Les feignants pourront se procurer 
tout cela aux réunions sensuelles, 


HODE D'EMPLOI DU DESASSEMBLEUR 
MODE HEXA 


{An} Un de 1 à 8) NIBASC 

Interprète les quartets à partir de l'adresse 
courante cosse de L’ASCII. Seuls les caractères 
ASCII sont affichés (caractères de 32 à 126), les 
autres sont resplacés par un point (caractère 46). 
CALL DESAS("1FOAS") 

1FOA9 [94041474] 

{AB} 

1FOA9 [NIBAGC ‘IMAGE. .."3 

{AS} 

AF0R9 INIBASC ? INAGE*] 


{Cni in de { à 4) CONin) 

Interprète les n quartets de l'adresse conse une 
constante décisale si nest plus petit que 5 et 
cosse une constante HEXA si n égale 5. 

AFOA ENIBASC ? IMAGE’ ] 

{ct 

1FORS [CONE) 93 

Lo 

AFOA9 LCON(5) 4140493 

{C3 

AFOA9 ICON(S) 34011 


{CHn} (n de 1 à 5) CONIn) 

Interprète les n quartets de l'adresse courante 
come une constante HEXA. 

1FOA9 [CONI3) 3401] 











LOL] 
1F00$ [CONIS) 4049] 


€Hj HELA 

Passe en aode HEXA sans changer l'adresse. 
IFOR9 [CONIS) #D49] 

tH} 

1FOAS [94D41474] 


{Nni in de ! à lé) NIBHEX n 

Interprète les quartets come de L’HEXA tout 
sisplesent, la pression de ‘." est considérée 
cosme valeur 10, 

IFÜAS [94041474] 

(NS; 

AFOAS INIBHEX 94D414745] 

€R.05 iN1O) 

AFOAS [NIBHEX 94D4147454] 

CH, 13 IN) 

IFOAS INIBHEY 9441474547] 


{Rn} in de ! à 5) REiin) 

Interprète les quartets come une adresse relative 
IFRS CNIBHES 94D4147454F] 

{R2} 


AFORS [RELI2) #49] 





LE 

Transtorse !’’offset” affiché par l'instruction 
{Rn} en adresse absolue. 

FOAS IREL(S) #49] 

LE 

1FOAS LRELES) #1EDF2] (0) 

l'indicateur binaire © indique que l’on est en 
présence d’une adresse absolue, 





D} 

Incrésente l'adresse d'un quartet, le prograese 
revient en aode HEXA, À noter que si la chaîne 
affichée est d’une longueur supérieure à 22 
caractères, la touche {>} sert à déplacer 
l'affichage. Il faut alors utiliser la connande 
TH pour accéder à la commande (}. 


{ei 

Décrésente l'adresse d'un quartet, le prograane 
revient en aode HEXA. Idea {>} pour l'affichage 
s'il est supérieur à 22 caractères. 





tv) 

Incrésente l'adresse de 8 quartets, le programe 
revient en aode HEÏA, 

Lo 

Décrérente l'adresse de 8 quartets, le progranse 
revient en sode HEÏR. 


tt 
Incrésente l'adresse de 128 
prograsse revient en aode HEXE. 


quartets, le 


tr 
Décrésente l'adresse de 128 
programse revient en mode HEXA. 


quartets, je 





to 60si 

Branchesent à une adresse absolue donnée par 
ERnT> ou par le désassesbieur avec possibilité de 
retour. Noter que l’on peut opérer un branchement 
que lorsque l'indicateur binaire 0 est affiché. 
ün est alors en présence d'une adresse absolue et 
nor d’un “offset”, 

AFOAS [94D41474] 






1 indique un niveau de 
UB}, Le niveau de 
progranse est représenté par les indicateurs 
inaires 1 à 4, 


ti} RETURN 

Retour à l'adresse précédente (équivalent à 
RETURN), Noter que l'adresse est alors 
incrésentée d'une valeur égale au nosbre de 
quartets de ‘instruction d'appel (RELIS)), 
L’indicateur binaire 1 s'efface, 

EDF2 [EDF457C9) i) 

03 

AFOC 14147454F) 





{5} 6070 

Identique à ({(} (GOSUR) mais sans possibilité de 
retour (6010). Là aussi le brancheaent ne peut 5e 
faire qu'en présence d'une adresse absolue 
lindicateur binaire 0. 
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{ATIN} 

Quitte le désassesbleur. 
AFOAC 14147454F] 

£ATTN} 

> 


END LINE} 

Incrésente l'adresse courante d’une valeur égale 
au nosbre de quartets de l'instruction affichée. 
Le programme revient en sode HEXA. Si aucune 
instruction n’est affichée, (END LINE} n°a pas 
d'effet, 


CALL DESAS(*1F246") 
1F246 [90555257] 

{ct 

1F248 [CONII) 9] 

{END LINE) 

1F247 1059552574] 

TRES 

1F247 INIBASC *PURGE*] 
END LINE} 

1F251 (BED25144] 

{2 

1F251 [CON(2) 235] 

{END LINE} 

1F253 [2514449] 

{ci 

1F233 [CON(1) 13] 

{END LINE} 

1F254 (25144494) 

{A7} 

1F254 [NIBASC ?RADIANS”] 
{END LINE} 

1F262 [40525144] 

{2} 

1F262 [CON(2) 2121 

(END LINE) 

1F264 [5251444E] 

Etc. Ci A(CON(I)in#i}/2) C2 C'est la table 
texte du LENOO! de la ROM basic du 71. 


NODE DESASSEMBLEUR 


{D} DESASSENBLE 

Dans l’exesple ci-desous, la fonction LENIN$) est 
désassesblée, son point d'entrée se trouve dans 
le LEXOO! du systèse d'exploitation à l'adresse 
“OBF28". La fonction n'accepte qu'un seu 
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parasètre alphanusérique non optionnel, ceci est 
codé devant le point d’entrée: 

O0BF27 CNIBHEX 1] (nosbre siniaus de paramètres), 
08F28 ENIBHEX 1] (nombre saxieus de parasètres) et 
0BF25 [NIBHEX 4] (parasètre alphanuaérique). 

CALL DESAS("OBF28") 

OBF28 [7C0E137C) 

to 

O0BF28 [GOSUE #E0C] 

{Tr 

OBF28 [GOSUE #0BD381 (0) 

Bvant l'exécution d’une fonction, ses parasètres 
sont logés dans un endroit de la séaoire appelé 
“Math Stack”. "OBD38* est le point d'entrée d’une 
routine appelée POPIS (POP { String argusent off 
sath stack), En entrée POPIS n’a besoin que de Di 
pointant le sonset de la “Math Stack" (ceci est 
déjà fait avant le branchesent au point 
d'entrée). En sortie: Di pointe la fin de 
l'en-tête de la chaîne alpha (D{=Di+ 18), P= 0 et 
AA) contient la Jongueur de la chaîne en 
quartets (chasps À du registre A). 

{END LINE} 

OBF2C [CDIEX] 

£END LINE} 

OBF2F [C=C+A A] 

{END LINE} 

OBF31 [Di=C) 

END LINE) 

QBF34 [DI=Di- 16} 

END LINE) 

ÔBF37 [P= 5] 

CEND,LINE} 

0BF39 [A=0 PJ 

CEND LINE: 

OBF3C LASRE] 

{END LINE} 

OBFSF [GOSUB #FB4] 

{3 

OBF3F [GOSUB #OBEC7] (0) 

Point d'entrée de la routine HDFLT (convert Hex 
integer to Decisal Floaling-point). En entrée 
HDFLT n’a besoin que du nombre hexa dans A(A). En 
sortie, AÎN) contient le nosbre décimal, P=0 et 
“Carry” est à {. HDFLT fait appel à une autre 
routine: HEXDEC (OECAF). 

END LINE} 

OBF43 [GOTD #9CF] 

{mn 

OBF43 [GOTO #0B9132 (0) 











913 IDATISA 
{END LINE 
08917 [GOLONG 43923) ï 
{T} 
08917 [BOLONG #0F 230) 
Point d'entrée de la routine EXPRK. Cette routine 
passe le contrôle des opérations au "Expression 
Execution Controller” après l'évaluation d’une 
fonction. En entrée: Dü=FC iFrogran Counter) (LEN 
ne touche pas à D0), et Di pointe la première 
expression se trouvant sur la "Math Stack”, 





ii ï 
Transforae toutes les expressions [LCin) H..H] où : 
ELCHEX H,.H] en [LCASC ‘A..A°] si la longueur de 
la chaîne hexa est paire. 


Voilà, j'espère que vous aurez le courage de 
rentrer Les trois fichiers "DESAS" "DESAT" et 
FDESAL" dans la merveilleuse sésoire de votre 
HP7IB et que vous passerez vos longues journées | 
pluvieuses de cette fin d'hiver à désessesbler 
Titan, Guelle superbe aachine ! Non ? 





Heureuse Frogransation, 


Michel MARTINET iPPC-PI2) 


LEX  *DESAL* 3 
1 #5 3 
HSE © 3 
POLL Ô ï 
ADHEAD EU  #1B1B7 ï 
BRGERR EBU  #0BFI9 ï 
CKSREB EQU  #00721 ï 


D=AVNS EQU  #1A460 








EXFR  EBU 
FLTDH EGU 
IOFNDO EQU 
KEYS EOÙ 
POPIR EQU 
POPIS EBb 
REVS EOU 
REVPOP EQU 
SLEEF EGU 
STRCHR EOU 


ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHER 
ENTRY 
CHAR 


KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEï 
TOKEN 


ENDTIT 


NIBHEX 411 
REVER GOSEVL REVS$ 


Expr BOVÈNE EXPR 


NIBHEX 411 


REDUC D=0 












40F23C 







30BDSS 
HBSBE 
408D5i 
#006C2 
418504 








ADBUF 
# 
ASCII 








KNAIT 
# 
REDUC 
4 
REVER 
#F 
SEEX 
# 














“ADBUFS" 

1 

*ASCS" 
SATA 

3 
FKEYRAITS" 
4 

°REDS" 


5 
5 


PREVS 
é 
*SEEK$* 




































s 
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REDUCI GOSBVL REVPOP 
LEASC ? ? 
CDEX B 


REDUC2 ?A=0 À 
GOVES REDUCS 
C=DATI 
20 B 
GOYES REDUCS 
GOSUB  DIACHR 
GONC  REDUC? 


REDUCS GOSUB Adhd 
D=D#1 5 
GONC REDUCI 
600 Expr 


NIBHEX 411 
CDIEX 

Di=C 

CDEX À 
GOSEVL POPIS 


ASCIII 78=0 À 
GOYES ASCII4 
C=DATI E 
EC BE 
LCHEX 7E20 
?&C B 
GOYES ASCI12 
CSR N 
CSR NW 
?E=C E 
GOYES ASCIIS 


ASCII2 LEASC °° 
DATIEC B 


ASCIIS GOSUB DIACHR 
GONC ASCII! 


ASCII4 CDEX À 
Di=C 
GOT Expr 


DIACHR DI=DI+ 2 
A=B-1 À 
A=A-1 À 
RTN 
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ï 
ï 
ï 
ï 
3 
ï 
3 
ï 


ERRA 


HTA 


GOVLNE ARGERR 


NIBHEX 411 
SOSBVL POP1S 
280 À 
GOYES HTA2 
CA B 
ST=C 

28740 1 
GDYES 

LE(S) 4 
RO=C 


RI=A 

ACEX À 
GOSUB  ASCHEX 
A=RÔ 

RÜ=C 

CDIEX 

C=C-A 

Di=C 

CROEX 


GOSUB 
60TO 


Ch 
CSL 
EsL 
LCHEX 





Dt=Di- 
DATIEC 7 
RTN 


NIBHE 411 
GOSBVL REVPOF 
780 À 
GOVES ERR 
LCHEX 00008 
7H 8 
GOYES ERR 
GOSUE  ASCHEX 
CDIEX 

Di=C 

CRIEX 

=D 

GOSBVL 

BONC 

Di=DI- 7 
E=RI 

DIEX 

#0 NN 

&=T À 
GOSEVL D=AVAS 


LCHEX 
7B>C 
GOYES 
LCHEX 
6070 


LCHEX 


C=C+E 

EOSBVL STECHR 
ÂSR  N 
240 À 
GDYES ADBI 
EOTO ADB4 


BOVLNE ARGERR 


CRI 
DI=C 


ST 6 
GOSBVL ADHEAD 
GOSBVL REVS 


GOTO Exp 


D=0 ON 


CSDATI 
BC BE 
LCASE 0° 
7ECC 
GOYES 
LEASC 
7EEC 
GDYES 
LCASC 
7KC 
GOYES 


GOVLNE ARGERR 


NIBHEX 8422 
GOSEVL POPIR 
60SBVL FLTDH 
GONC Argerr 
Di=Di+ 16 
ARGEX 









GOSBVL 
?8=0 
GOYES 
LCHEX 
?2R)C 
GOYES 
OSUB 
RC 
BOSBVL 
DIE} 
Di=C 
RI=C 












E=RÔ 


SOYES 
C=C-1 
RO=C 
ADGEX 
Es 
C=DATO 
ADOEX 
AsAt] 
B=C 
LCHEX 
?2B>C 
OVES 
LCHEX 
60TO 



















SEEK2 LCHEX 








SEEKS BCEX 
C=C+R 
GOSBVL 
607 











SEEK4 ST=0 
GOVLNE 









NIBHEX 
KNAIT  CDOEX 
RO=C 
CDIEX 
RI=C 


















KWAITL GDSEVL 
60C 
ER! 
Di=C 












JPC 





REVPOP 
A 
Argerr 
60008 
À 
krgerr 
ASCHEX 
0 
D=AVAS 


om» 


SEEK2 
30 
SEEKS 


3 


E 

E 
STKCHR 
SEEK1 


0 
ADHEAD 


00 


SLEEF 
KWAIT2 


n'22 page 38 


C=RÔ 
D6=C 
GOVLNG KEVS 


6010 KHAITI 


END 


i 
1 KRAIT2 GOSBVL CKSRER 
ï 












04 SETHEX 
05 SETDEC 


dEaû 
dEai 


147 C=DAT 
148 DATG= 
149 DATI= 
148 R=DATO 
14B A=DATI B 
142 DATO=C E 
140 D& B 
IAE C=DATO E 
L4F CSDATI E 
150a DATO=A 








TON 
BGBF INTOFF 
80S C+P+i 
OA RES 


B0Cn C=P 
Bûbn P=C 
80Fn CPEX 
BIG ASLE 
BSLC 
CSLE 





BEhhhh, SOSUEL 
BFhhhhh SDSBVL 
a 


AbO 8=Q 
Abi B=0 





JPC 


Se 


Berre 


! 
À 
0 A 
# 
f 
# 
a 
A 
A 
à 
a 
A 
8 
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1000 SUB DESAS(ES) € POKE "2F441",°F" 8 DI 
1010 DEF FNOS(BS,C$,D$) © SFLA 0 € J 





B$[41] & RESET & ON ERROR GOTD 1050 & 

N(D$)/2 © INTEGER G & IF NOT FLAG(S 1036 

1020 IF B$[7,71="?" THEN 0=2 EL: BC 8E"," "#BS[1,21) @ IF B#[1,1]="7" THEN O=3 

1030 FNO$=DTHS (MOD (B+HTD ICS) + (MOD (HTD(DS)+#),2473-3),16*5)) @ END DEF 

COCOSARS ITS 

1568 EDSiCS) € ON ERROR GOTD 1940 € *V': AS=GEEK${CS, 18) 

1069 IF FLAGIS) THEN CALL MNENDIA$,BS) & P=POS(RS," *) ELSE BS=AS(1,81 & P=0 & CFLAE 7 
FU7: CFLAE 0 @ IF NUMIBSILENIBS)-51)=35 AND NOT FLAG{8) THEN SFLAG Ô 

: DISP C$t® C'EBSIP+1]4"2" @ IF LEN(BSIPJ)>15 THEN SCROLL LEN(BSIPI)-14 

DS=KEYNAITS @ °\°: IF POS("4012345678 ",D$) THEN ?’Y° 

“DHCRTNA=OL",D$) @ IF NOT G THEN 1120 

1300,1290,1340,1370, 1500, 1480,1510, 1350 






























ON 18+3)/4 BOTO 1140,1160,1190,°F°,1170, 1200, 1220, 1180 
140 IF NOT (FLAB(7,0) 
ü IF FLAB(S) 










GOTO ?2° 
1200 F=-127 @ G60TO ‘2° 

1210 CFLAG 5,7 € GOTO *V° 

1220 P=1 € SFLAB 5 @ GOTO 1259 

1236 INTEGER P 

1240 °2°: CFLAG 5 

1250 CS=DTHS (MOD EHTDIC#)+MOD(P-1,18*5),165)) 8 IF FLAG(10,0) 
SFLAG 12 8 GOSUB *T° E IF P&1 33 THEN ‘Ÿ' ELSE 


{ 








THEN RETURN ELSE ?V° 
VS {ASC 1,P)) 

"ins 

6 0,8 € 6070 ‘W° 

GOT0 1310 ELSE °Y° 










1270 
1280 


1320 CFLAG 8 € 
1330 R4=A$II,FE" 








158,24: 
ELIFRSTRS(PIL") #'EDS € P=P+1 6 GOTO °° 

1340 SFLAE 8 8 * 8 B$=A$II, FIL" NIBHEX "&AS[1,P] € P=P+1 & GOTO °W° 

1356 IF NOT (FLA AND MODIHTD(BS2,21),2)) THEN °Y° ELSE B$=B$[1,P] E P=P-5 
=SEEKS ICS, 18131 8 E$=B$E "RREVSIFNASIPIIu""" @ P=P+S € GOTO N° 

1370 GOSUB *T° @ IF PCI OR P)8 THEI ELSE P=P+P 
















OTD ‘Ù” 
S(B$," 4°) @ IF NOT I OR LENIBSII#2])>4 THE 
1400 DS=FNOS(BS, DTHSEHTD (CS) #1), D) 
1410 B$[1+2]=D$ 8 G0TO ’L° 
1420 *T°: INTEGER P © *S?: IT$ 8 IF D$="#43" THEN *F° 
1430 IF D$="H* AND FLAG(H2,N0T FLAG(12)) THEN ‘5’ 
1440 IF D$="." AND FLAG(É,0) THEN SFLAG 9 & P=10 € GOTD *S* 
1456 IF (D$C*1" OR D$2*9*) AND NOT FLAG(9) DR (D$C"0* OR D$>"6") AND FLAGI9,0) THEN 1470 
L(DS) #8 SFLAB 7 @ CFLAG 5 € A$=SEEKS(CS,18) E RETURN 
ñ B$," *) @ POP @ GOTD ’X° 

à IF NOT FLAB(O) THEN °Ÿ° 
1490 CFLAG MOD(T-1,4)41 @ TeT+i € SFLAB MOD(T-1,4)+1,10 @ DIM T$(T)[S1 € GOSUB 1250 € T#{TI=C$ 


*Y° ELSE D$=B$[1+2) 
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1500 0=POS{R$," #°) © IF LEN(ESIE LAG(O) THEN C$=B$[0+2.0+61 8 ROTD *V° ELSE ?V° 
1540 IF NOT T THEN ‘Ÿ’ E } 

4520 1F T THEN CFLAB MOD(T,4)+#1 8 SFLAG MOD{T-1,4)+1 ELSE CFLAG 1 © DESTROY T$ 

1530 GOT °° 

1540 DISP ERRNS € D$="#48" 

1550 ’F': POP € POFE "2F441°,°0" @ RESET & PUT D$ & END SUE 


SUB MNEMOIA$,E$) 8 ASSIEN 1 Tü DESAT 


RSSERRDHEVA “LASEL, I 1,1,8,385,1) 
IF ROT À THEN 2080 
G REBD HE 
90 P=POSIBS," ")-1 
IF POS{"nxaih",B$CK,K1) THEN GOSUE 2140 
2070 NEXT 1 
2080 IF POS(B$,"7",POS(ES," ")+1) EXOR NOT POS{B$," *) THEN GOSUB 2110 
IF ASC, PISBS[1,PJ THEN ES=A$E" 7° & GOTI 
AS=ASIPOS (B6,* *)1 8 G6D 
2110 B$=AST1,SIRBSIE] 
2120 IF NOT HTDIA$(4,53) THEN B$=H$£" RINYES" ELSE BS=B$k" GOYES #"&REVS 
2130 RETURN 
2146 ON POS{"nxaih",B$IK,KJ) 6DS 
2150 BSIK,KI=E$ & B$=B$L* *LSTRS 
[K,KISES © BS=B$E" “LSTRSIH 
ASIK, PJ 6 Bé=B$t" #4" 


FOR 1e! TD 4 8 
IF ASC1,LENID 
ONETIÉIFA 
5 € RETURN 


2240 IF P€B THEN B$=B$R"LE ("ESTR: me j * ELSE B$=B$&"LCHEX * 

2250 1F P=7 THEN BS=ESL"E" 

2260 GOTO 2180 

227 {"8" THEN 2290 

2280 A=SEARCH “RASCI, 118%", 1,4,385,1) © IF NOT A THEN POP € RETURN 

2230 ARCHEASVRASEL, TIRA, V'RASEE#2, PIE" *,1,8,385,1) 8 RERD #1,45B$ & BSIK,K 
2500 C=REDS{"P NPXSX S NB N *[M {E$),842#1101,27) 

2310 Bé=B$L* "&C$ 8 POP & GOTO 2220 

2320 END SUB 
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LEX “CONSTANT 
1 #5 
SE 
FO © 
FNRIN2 EQU  #0F219 
DEONTR EBU  H2ESFE 
EN FNCT 
CH #F 
KEY *CNTRST? 
TOKEN 1! 
ENDTÈT 
NIBHEX OÙ 


SOVLNE Fi 


! 
: 
1 
1 


Lü 

P= 

LCHEX 

A=RÔ 

GOVLNE FNRTNZ 
END 
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Renvoie le noabre codé dans C dans la Nathstack et retourne à Basic. 
Eaplacesent du contraste {cf JPC Ne 13) 


Dans D0 se trouvait l'adresse du pointeur progranse. 
On y charge l'adresse du contraste. 

Tout le aonde coaprend. 

On charge 9. 

Que l'on passe dans 4 


La valeur du contraste est écrite dans CiS}, 


Si elle est supérieure à 9 on saute. 
Sinon, on fait tourner € d'un quartet à droite. 


Et on affiche le nosbre, 
Conversion en décisal des nosbres supérieurs à 9, 


Ün retire 1 à la valeur du contraste, 

2 rotations à droite pour placer le nosbre au quartet 13. 

La valeur est supérieure à 9, donc il faut le convertir en déciaal. 
H faut bien entendu ajouter un { devant la valeur du contraste, 


cf plus haut, 


















PROGRANNE ASSEMBLE 


1000 INTEGER À,I,d,K,L 
1016 ENPUT "Longueur du LEX :"3l 
1020 DIM ASILI,B6LI0I,N$[E3 


1070 WINDOW 4,14 
1080 INPUT *";B$ 
1090 IF NOT LENIRS} THEN 1140 ELSE A$=AS$LES € GOSUE 1330 
1100 WINDON ! 

HG deg 

1120 EDSUB 1420 

1130 GDTD 1050 

1140 WINDOK ! 

SF *ikisseable 





tiontre” 
+1 60TD 1140,1170,124û 















1210 PURGE N$k":PORT 
1220 END 








FOR K=1 TG IPILENIAS}/10)410 STEP 10 


LK,K471 





CRETE 
Ô ON POSI"M",KEYRAITS)+1 GOTO 130 








AVALUBST, 1417) 
1360 EXT 1 

1370 A=HDD(A, 256) 

© RETURN 

G INPUT **,CHF 
1400 ASEK,K491=B$ 

1410 GDTD 1300 

1420 DISP USING 1440;d;2-134 
1430 RETURN 

1440 IMAGE 21,131, 





A2T)R"C'ESTREITIE" "AC 





DES 
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FORTH RECU 





J'ai 





eu, au début de cette ann 
de courrier très intéres 
en. Nous avons 
ter quelque 

rsivité de FORT 





sant avec À 
gé opportun de vo 
extraits, à propos de ja 





H. 





“Besançon, le 19/12/84 





Cher Monsieur David, 
Si vous n'avez pas Le tengs, vous jetez cette 
lettre au panier; sinon, voici quelques petites 
questions: 
Toujours propos de SXUDGE (ou plutôt de la 


- Bien entendu, ce n° 












è 
récursivité): 
+ 







ue j'ai 
leurs tout de 
sisple où doub 





aple plus sieple: 





IN 14 C ROT SRAF DO 
naxieus siagie longueur} est nel 
noraai 1 résultat 


i + LOUP ; 












mexique vaut 





Bref, à cause de tout cela, Le FORTH récursif &e 
laisse insatisfait, 


Bien asicalesent et bonne année 
Michel NEIL" 
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Cher Monsieur Weil, 


élérents de réponse à vos 





ons: 





de SMUDGE", la réponse figure page 27 
du sodule FORTH/Asseatleur: 











se (5 quartets) 
de retour (ainsi que n 





pile de données, mais Ça 
pas ici). Il arrive un aosent 
Retour. 


er) stocke la comsande 
tapez 5 SON [END 
D4 69 00 ic’est à 
0, M, puis les deux 00 servent 





aaginez 





d'où le message 
è analyser 





Si vous voulez v 





5 aguser, et 5i vous n'avez pas 


peur du Mescrÿ Lost, essayez SOMISOG). La, la 
pile de données et la pile de retour écrivent un 
peu sur tout ce qui existe dans FORTHRAN et 
ailleurs ! FORTX est sans protection... 


Pour éviter votre insatistaction, la solution est 
de faire EROK, pour élargir 1e FORTHRAN. 











Note: FORTH, avec 3 Ko environ calcule SÛ“ 
jusqu'à n270 environ. BASIC, avec à peu près la 
ère place, ne dépasse pas n=85 ! 








ê lement, 
Pierre DAVID" 





je l'avais dit à Michel, ce ne sont que des 
indications. Un point n'était pas précis: le 
fonctionnement de GRON. En effet, ce aot ne fait 
qu'étendre la place allouée au dictionnaire (et 
donc à la pile de données) sais pas la place 
allouée à ja pile de retour. Le problèee restait 
entier. 








Lè encore, la réponse se trouve dans le ganuel du 
FORTH/Assenbleur, 11 faut "déplacer sanuellesent" 
le bas de la pile de données et le haut d 

Par exemple, après avoir fait 2048 ERDK, 
suffit de regettre les pointeurs 2FBL! et 2FBI 
aux bonnes valeurs. Si on veut laisser à la pile 


de GORE le #èse espace qu” apaavant, on fera 
D7C 2FBI! ! 505 Bi 
tte 











30D7C !, puis 30871 
FORTE fitèste contre 
par le biais d'un essai 
sais il faut r 
les horizons 
Forthienne ! 





Fe récursivité 








"Besançon le 23/1/85 


Cher Fierre, 





MERCI beaucoup pour vos indications: en cosbinan 
GRON, et en reaettant les adresses "Bas de dat 
stack" et “haut de TIR, la rsivit 





SRE 


fonctionne très bien (et est eêse très rapide: 
fois plus qu'en BASIC), Elle est seulese 
lisitée par le aémoire (mais beaucoup soins qu'en 
BASIC), 








Avec 20 Ko de FORTHRAM, on va jusqu’à n=830 pour 
SON, 
Avec 20 Ko de BASIC, on va jusqu’à n=270, 


Buand on a fini, avant le SHRINK, il faut 
resettre les bonnes adresses. 
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ic) Serge Vaudenay 1985, NOMAS 
Suported}, RC Nc XX, etc... 


Bonjour à 

présenté, 1 
de déterain: 
un programe 


ous, Be revoilà: je vous avais 
ois dernier, un programe de calcul 
, et je récidive, cette fois, avec 
encore Rieux, encore plus puissant, 
utile, encore plus sérieur..,. J'ai 
TE Un Nouveau passaord encore plus 
stupide que les autres, 


t 
e# 
ant 
€ 


sureté, j'ai privatisé ie listing 
entre les mains, pour éviter les 
s’auto-détruit dans ce 

es ät journal 


is sachez qu'elles 


LE programme qui 
transformer votre HF-71 en orgue au 


fonction 
le ailleur 


trouverez 
QU, je ne 
uences des notes d 


Le preaier concert 

29/02/85 affiche dé; 

Le programme que je vous propose aujourd'hui 
permet donc d'enregistrer un ecrceau de ausique 
sous forme de fichier, puis de le jouer. 

Vous pourrez utiliser EDTENT (eodule traitesent 
de texte ou acdule FORTH) pour mettre votre 
scrceau sous forae de fichier TEIT, 

I vous faut sisplesent entrer une note dans les 
enregistrements, et la base de tesps (en 
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ice sera donc 


Les notes sont codées de ja manière suivante: 

- longueur (en unités de temps) suivie de 
aais ceci est optionnel est 1, 

- nos de la note (en français, s.v.p.l, ou 
pour un silence, 

- No de l’octave, ci celle-ci est différente de 3. 

Par exesple, ‘1/2,MIb4" sera le M] béac) de 

l’octave 4 en croche, "Fhe” sera le F4 dièse 3 en 

noire, "4 sera un silence valant une blanche 

{un  soup: un deni-soupir, Où un quart de 

AUFBUTE, Vi appellerez Ça conne vous voudrez 

car j'avoue aon incospétence dans ce domaine). 

Si vous comsencez votre enregistrement par un 

soins , la ligne sera cospilée telle quelle. 

Ceci peut être utile pour reprendre des parties 

du Osorceau (voir SOURIS avant et aprés 

cospilation Les lignes portent les estees 

les enregistresents. Dans ce cas, 


référerez à votre aode d'eaploi sur le 


de GOSUE ou de CAL est fortenent 
{voir exesples}, 


devrez ensuite lancer le prograrse (RÜN où 
, entrer le nce di er source virgule le 


ne du fichier destinatio 
prograsse 
le directement. 


MSE$ dans 
E sera en français 


ci-joint (ci-dessus, 
re} des exemples de morceau 


Le prograsse nécessite un fichier ‘NOTES, qui 
contient la fréquence des notes. 


Joyeuses cospositions, et à bientéêt, 


Serge VAUDENAY (c'est moi!}, 













Frequence des notes (Hi), 


Note 





6 1: NY 5 & 

- SI 62 124 984 1984 3906 
58 lé 933 1866 3676 
SS 110 220 440 880 1741 3472 
52 104 20 


BERCEUSE 
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SUB PART3660SUE FAR 





+3,00 
RE4 
+5, SI 
*5,SIE 
STE 





INTEBRALES 


1 Le Oprograsse proposé peut-être utilisé en 
ï  cospléeent où en palliatif du sodule aaths du 
ï  HP7I (non seulesent parce qu’il est plus rapide, 
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mais aussi parce qu'il calcule des intégrales 
générelisées). 


Pour plus de détails sur la séthode eaployée 
méthode de Gauss-Legendre en 24 points), 
référez-vous au prograsne "INTG" paru pour HP4i 
dans le No 18 de JFC (octobre 84). 

Exenpies: 


4 
Calculez ds 3 
x? 4 


à 


CALL INTEGRAT (1,4,"1/X%2") 


Calculez fa = î 
4 w 


CALE INTEBRAT (1,Inf,"1/1°2") 


FQUE: VOUS POuvez suppriaer des € 


HATRICES & EDITER : 


Soucieux d'exploiter L’excellent sole MATHS du 
71, mais peu désireux d’affro: i 
le superbe programee de Laurent ISTRIA PC N 
sept84), je vous propose ce aois-ci un éditeur de 
matrice, Baïssez les doigts, j’explique 


près avoir créé une satrice X lassieilée ici à 
un tabl vous désirez sodifier certains de ses 
éléaents. Faites CALL MATEDIT(N). 

Placez-vous sur l'élément concerné à l'aide des 
touches (€, D], [°J, [vl qui peuvent être 
préfixées par [g] pour accéder aux élérents 
extrèmes des lignes et des colonnes). Vous pouvez 


entrer la nouvelle donnée sous la forse 
d'un nosbre, soit d'une expression cosse 
vous le feriez en sode CALC, Dès lors vous êtes 
sode ‘Introduction et vous n’en sortirez que 
ue vous changerez de case, repassant ainsi 
en aode ‘Visualisation. 
Confère exesple joint pour de plus anples 
inforsations, et prendre garde à ne pas taper 
trop vite (nous en reparlerons). En plus de cela 
trois coseandes vous sont offertes: 
- changer de signe: touche [=]. 
- effacer la dernière entrée: touche [ ] (espace). 
- résultat précédent: touche [g] [END LINE]. 
ette dernière fonction est bien pratique en cas 
‘erreur. Elle perset de rappeler la valeur 
nitiale de la cellule du tableau, ‘effaçant’ en 
quelque sorte les sodifications effectuées. Elle 
Atarie égalesent le réeapioi dans un calcul de 
la valeur trouvée en vous placant en aode 
*Introëuction®. 
Un exemple éclaircira les idées: 
Soit F une #atrice identité de disension {5,5}, 
de plus petit indice 0. On se propose d’assigner 
à #02,2) la valeur FI, 
Créons la matrice: DIM X{5,5) et appelons la 
routine: CALL MATEDITIN). 
0,6: 0. 
nous sur X(2,2): deux fois [v], puis deux 
PI, 1} est inutile de valider 
moins que vous ne désiriez 
ce qui Re change rien à la 


Faites [CMDS3 (soit 

ND LINEN et le { initial réapparaît. Conne 

t réapparu tout autre chiffre d'ailleurs. 

et introduisez PI. Changez de 

en (3,2) (vous suivez 2). 

ultipliez ce résultat par l'inverse de PI. 

Coaaent faire ? Très siaple: appuyez sur (CMDS]) À 
1/FI puis [END LINE), 

JE vous laisse vous fasiliariser avec le 

saniesent de [SPC] pour en venir à la structure 

de ce programne. 


I n’en à pas, l'affaire est entendue et honte à 
ai À! Tout à été sacrifié à la vitesse 
d'éxécution. À ce sujet, le sous-prograsse 
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ENTREE" sera prochainement resplacé par un eot 
Forth, Mais n'allez pes le répéter, cela ferait 
ENVIEUX os 





Jean-Pierre BONDÜ { 33) 





Le Oprograsse 'VALPROFR a pour finalité la 
détermination du polynôme caractéristique d’une 
aatrice carrée réelle À d'ordre n, et ainsi le 
calcul de ses val propres, réelles où 

















5 
cosplexes, par résolution du polynôee. Reppelons 
qu'une 1 propre À est telle que, pour toute 
netrice Y non nulle associée à À, on ait: 
RieAr. 


Pour réaliser tout cela, deux atouts: les 
foreules de récurrence de Bôcher et le eodule de 
maths du HP7IE. 








- Les formules: AA 
Soit PUX)= X'+ du À ++ dns À + 4 


le polynôse caractéristique de À. 





- Le sodule gaathi ce sont les fonctions de 
produits de satrices et de résolution de 
polynôses (PRODTI qui ont été principalesent 
utilisées, 





Mode d'eaploi: 

RUN VÉLFROPR, entrer l’ordre de la matrice, puis 
celle-ci; en sortie: PA), puis CONT pour avoir 
les valeurs propres. 


Variables: 
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Tableeu À: Natrice À 
Tableau B: Matrice À 
Tableau 5: 1 

Tableau X rs propres 


Tableau P 
P$: PU) 
N: ordre de À 

1,9: indices de calcul 


Les «: 


À vous de polynôser maintenant... 
Olivier ARBEY (PI18 - T1é4) 











NUSIQUE 


- Conpilateur ausical. 
20 DESTROY E$,F$,6$ € DISF MSG$ 
30 DI } 

40 CALE CONFIFS,6$,E$) 

Q DISP E$ @ BEEF 





8 INPUT *°:F$,6$ 















BGTO 190 & SFLAS -1 & 6$ 

Q CREATE TEXT 6$ € AGSIGN #2 T0 66 € ASSIEN #1 TO F$ 
ASSIGN #3 TO NOTES 

READ #13A$ & TO=VALIAS) 8 Let 

G ON ERROR GOT 






















B$=("0000" 86 
IF A$C1,138°-" THE! 
INT 42;B$ @ GOTD 





LL VALIAS,HS,83, 70) ELSE B$=BS&ASI2] 





LUAS,ES, 
IF POS{ES 


BS=B6E" AIT ESTRSIT) 


PPART2’ 


FPARTS" € 605 
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INTG 












TUI#LIHFNFIA#BATET)) 8 NEXT 


F2HFNF (420) & NEXT I 8 NEXT J 













1060 SUB MATED 
1CI0 INTEGER X,V,S 8 DIM L,X6,KS[47,T6C1),X61401 & DELAY 0,0 
1020 T#=PEEKS(°2F44/°,1) 8 POKE ’2F441°,7F* 

= Touche ON’ inhibée 








JPC  n'22 page 52 








1050 S=0 8 L=AUX, Y) 

1080 X$=STRS (AIX, V)) 

1070 BEEP 2000,.01 

1080 Z4=STRS (LIL, "ESTRS EVIL: "EX 

1090 IF S THEN DISP Z$&CHRS(95) ELSE DISP 24 
1100 KS=KEYNAITS 


1110 IF K6=°=" THEN AUX, V)=-VAL(X$) € BOTO 1060 

1120 IF Ké=? ? THEN G0SUB ’CORR’ 8 G0TD 1070 

1130 IF K${1,134°#7 THEN GOSUE ?ENTREE’ @ GOTO 1070 

1140 IF K$=°#387 THEN AUX, VI=VAL(XS) © GOTO 1060 

1150 IF K#=°#47” AND YOLBOUND(A,2) THEN AUX, YI=VAL(X$) @ Y=Y-1 8 GOT 1050 
1160 IF K&="#48 AND VCUBOUND(A,2) THEN AUX, YI=VAL(XS) 8 V=V+1 & GOTO 1050 
1170 IF K6=°#50° AND XOLBOUND(A,1) THEN AUX, YI=VAL(XS) & X=X-1 € GOTO 1050 
1180 IF K#="#51? AND XCUBOUND(A, 1) THEN AUX, Y)=VAL(XS) 8 X=X+#1 € GOTD 1050 
1190 IF K$=°#150" THEN AUX, YI=L € S=1 € GOTO 1060 

1200 IF K#=#159° THEN A(X,YI=VAL(XS) & Y=LBND(A,2) € GOTD 1050 

1210 IF K$=*#160° THEN AUX, V)=VALIXS) € ND(A,2) 8 GOTO 1050 

1220 IF K$=’#162" THEN AUX, VI=VALUXS) € ND{A,1) 8 GOTD 1050 

1230 IF Ké=’#163" THEN AUX, YI=VAL(XS) @ X=UBND(A,1) € GOTO 1050 

1240 IF K$=°#43? THEN 1300 ELSE 1100 















1270 ?ENTREE’: 
1280 IF S THEN XS=YSEKS ELSE A$=K$ 8 S=1 
= Ss1: Introduction de la donnée en cours 
1290 RETURN 
1300 AUX, V)=VALEIS) 
1310 POXE ?2F441°,7$ 
1320 END SUB 


PROGRAMME VALPROP 


- Initialisations: 
10 DESTROY ALL @ STD & DELAY .5,.5 
20 INPUT “Ordre ? "3N 
30 ON ERROR GOTD 410 
40 OPTION BASE 1 & DIN AUN,N),BUNN),SIN) © COMPLEX SHORT LIN) 
30 OPTION BASE O & DIN P(N) 
60 DIX P$I96] 
- Entrée de la matrice A: 
70 MAT INPUT À 
- Calcul des Si: 
80 MAT B=A @ P(Q)=1 
90 FOR 1=1 TON 
100 FOR J=1 TO N 
110 S(I)=S{I)+A(I, 1) 
120 NEXT J 
130 MAT A=BtA 
140 NEXT 1 
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& ce des où: 





190 P(II=-P{I)/I 
200 NEXT I 


- Résolution du polynése caractéristique, et racines dans le tableau X: 









TON 

THEN 320 

a fn ah ELSE IF P{I)=4 THEN P$=P$L"+" ELSE Pé=péL"-" 
8 6DTD 320 ELSE 300 


THEN ses P$u"+" 


PS=PSLCHRS (11) © BOTO 320 
PSLCHRS (111% "£GTRS (N-T) 





426 END 
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MARS GE FFC FARIS CHAFTER 


ASSOCIATION REGIE FAR LA LOI DE 1901, ENREGISTREE 
À FARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 87/3240 


EULLETIN D° ADHESION 











aux statuts de 
cit de fournir 


enfreindre 





1/19? 12: 
EDEE DE LA MENTION "LU ET APFROUVE" 


SIGNATURE, F 





LE MONTANT DE LA COTISATION AU FFC FARIS CHAPTER S°ELEVE 4 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISFENSABLE) 
PAIEMENT EFFECTUE LE !_1_t/11_1/191_1 Lt À L'ORDRE DE FFC FARIS CHAFTER. 
FAR D 1 CHEQUE BANCAIRE N° BANQUE ___ 
[ 2] CHEQUE POSTAL 3 VOLETS N° 
| [ 1 MANDAT LETTRE | 
EVENTUELLEMENT: JE M'ABONNE à COMPTER DU !_1_1/1_j 4/19! 101 
JOINDRE À VOTRE INSCRIPTION UNE FHOTO D°IDENTITE ET UNE ENVELOFFE TIMBREE à 
VOTRE ADRESSE. 





0.00 FF, 





VEUILLEZ ENVOYER TOUTE CORRESPONDANCE à: 


MR PHILIPFE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARI JPC n°22 page 5 








